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PARA UNA BUENA CARGA __ y 
DEL PROGRAMA EN TU ORDE-| 
NADOR, COMPRUEBE 7) 
QUE LA CABEZA DE SU ye 
PLATINA ESTE DN 
LIMPIA Y EL 

AZIMUTH PERFECTAS 
MENTE AJUSTADO. 
LIMPIELA CON EL 
PRODUCTO 
SKUA. 








FABRICADO POR 





Nombre y Apellidos . 
Direccion 


Ciudad ( 
Deseo recibir Limpiadores de cassettes al precio de 420 Ptas. Unidad. 
Forma de pago: O Talón O Contrareembolso O Giro postal 


Remitir a GTS, $. A. - Bailén, n.? 20 - 1. Izda. D.P. 28005 


ALICANTE ¿SPAIN 5 


AEFEILIITIES 


ESPERES ES FS 


Editorial 


Queridos lectores: 


a acogida que tiene cualquier producto en el mercado se tiene 
L que mantener con una atención constante a los usuarios. 

Teniendo esto en cuenta y que si hablamos del mercado informático, 
esto se multiplica por 10, es por lo que es necesario, cada cierto 


tiempo, conocer esa opinión. 
-- Como os anunciábamos en este número, se han introducido algunas 


variantes. Todos los juegos, a parte de estar listados muestran en la revista 
una pantalla de presentación otra de un momento en la ejecución de los 
mismos. Pensamos que es más entretenida y más atractiva. 

Por otra parte, también os encontrareis con una encuesta que nos 
ayudará a conocernos mucho mejor y de esta forma que la revista 
sea cada vez más, un instrumento válido y actualizado. <:. 

Por favor remitirnosla con vuestros datos. 
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| + 64 CARACTERES 
e UVE 

e. EMBOSCADA 

» RELOJ 
e ALTA RESOLUCION 
-*QH 

e KATAKIMBA 











CARA B 
e BIK-ZAR 
e K-3 
e SABER 


e PLUMADIS 

e ANUALIDAD 
+ FUNCION 

e ARRASER 








UVE 


La batalta Exnal 





10 REM V,la batalla final,por Carlos, y Roberto Ferrero ? Mayo 1785 

20 BORDER 2: PAPER 0: INK 7: CLS : PRINT AT 11,105 FLASH 1;"PARE LA CINTA": PA 
USE 100; CL5 

30 LET a=INT (RNDH4) +3 

40 INK a 

50 BORDER 4: PAPER 1: IMK 6: CLS 

60 FOR $=0 TO 255 STEP S 

70 PLOT 0,10 

50 DRAW 4,165 

35 BEEP .01,40 

90 NEXT + 

100 PRINT ; PRINT AT 1,2; INK 7; FLASH 1;"6RUPO FERRERO” 
110 PRINT ; PRINT AT 3,25 INK 75 FLASH 1;"PRESENTA" 
120 FOR +=0 TO 255 STEP 5 

130 PLOT 255,175 

140 DRAW -+,-165 

143 BEEP .01,50 

150 MEXT + 

160 PRINT AT 17,145 INK 7; FLASH 1;*UVE” 

170 PRINT AT 19,145 INK 7; FLASH 15"LA BATALLA FINAL" 
150 FOR N=-30 TO 60 

200 BEEP .,01,N 

210 MEXT N 

220 FOR F=60 TO -30 STEP -1 

230 BEEP .01,F 

240 MEXT F 

250 60 SUB 3010 

260 FOR m=1 TG 19 





270 BEEP .03,m 670 IF ATTR (6,b)=206 THEN 60 TO 1510 

280 MEXT n 680 INK 7: PRINT AT 5,b-15"277"jAT 6,b5"?" 

290 PRINT FLASH 15AT 8,8;"LA BATALLA FIMAL": 60 SUB 9010; CLS 590 IF INKEYS="m" OR IN 223=16 THEN 60 TO 2010 

300 PRINT AT 10,65" INSTRUCCIONES (5/m)" 700 ¡F pi=-100 THEN PRINT AT 12,2; FLASH 1; BRIGHT 1;"'ERES MAS MALO BUE EL SEB 
310 LET ab=INKEYS: IF a$="" THEN 60 19 310 0!": PAUSE 200: 60 TO 6010 

320 1F ab="s" OR a$="S" THEN 60 TO 7010 710 1F p>999 THEN 60 SUB 3010: 60 TO 3210 

330 1F as="n" OR a$="M" THEN 60 TO 510 720 1F p9499 THEN 60 TO 760 

350 730 BEEP .05,-10 

500 REM JUEGO 740 1F p)299 THEN 60 TO 760 

501 750 BIEP .05,10 z 
S10 CL5 ; BORDER 1: PAPER 1: INK 0: CLS 750 BEE? ,05,20 

520 LET $=60: LET b=16: LET p=0: LET m=3 770 1 4(=0 THEN PRINT AT 10,75 INK 7; FLASH 15"!!!SIN ENERGIA!"!*": 60 70 6010 
530 1NK 7; PRINT AT 20,RNDFJ1; BRIGHT 15"2" 780 PRINT OVER 15AT 5,b-15"222"5AT 6,b5"2*%: INK ] 

540 LET r=iMT (RMDELO)+1 790 60 TO 530 

550 1F r=9 THEN PRINT AT 18,RMDEJI; INK-7; FLASH 1; BRIGHT 1;"A" 830 

560 LET w=INT (RNDF14)+1 1000 REM GRAFICOS DEL CHOQUE 

570 1F v=10 THEM PRIMT AT 18,RMDFJ1; INK 6; BRIGHT 15 FLASH 13"2" 1001 

580 LET f=4-1 1010 INK 7: PRINT AT S5,b;"? HE? 
590 POKE 23692,255 2%: INK 7: PRINT AT 10,10; FLASH 1;"HA CHOCADO" 

500 PRINT AT 21,313" * 1020 FOR m=0 TO 50 

510 PRINT AT 0,15 FLASH 1;"PUNTOS "¡p 1030 BEEP 0.006,m 

515 PRINT AT 0,21; FLASH 1; "ENERGIA "54 1040 KEXT a 

£20 PRINT AT 0,125 INK 7; BRIGHT 15"VIDAS "¿mjAT 1,125*29999977* 1050 LET m=m-1 

630 IF INKEYS="2" AND b)1 OR IN 223=2 AXD b)1 THEM LET b=b-1 1940 1F m=0 TREN 60 TO 6010 

540 1F INKEYS="x" AND b(30 OR IN 223=1 AMD b(30 THEN LET b=b+*1 1070 cLs : 60 fo s30 

650 1F SCREENS (6,b)="A" THEM LET 4=4+20: BEEP .5,40 1200 : 

660 JE ATTR 16,b)=29 THEN 60 TO 1010 :500 REM RESCATE DE HUMANOS 





1501 

1510 PRINT AT 10,63 FLASH 1; "HUMANO RESCATADO" 

1520 FOR m=0 TO 30 

1530 BEEP 0.05,m 

1540 MEXT u 

1550 LET p=p+25: LEY F=4+10 

1560 PRINT AT 10,8; FLASH 0;” 

1590 60 TO 530 

LED 

2000 REX LASER Y DETECCON DE IMPACTOS 

del 

¿016 LET r=b18+3; LET s=(21-5-1148 

2020 INK 2: BRIGHT 1: PLOT r,s: DRAW OVER 1;0,-50 

2030 BEEP .2,40: LET +=4-3: PAUSE 5 

2040 PLOT r,s: DRAW OVER 150,-50 

2050 LET t=i"-41/8: FOR v=5 TO 12 

2080 BRIGHT 0: IF ATTR (v,t1=79 THEN PRINT AT v,t5"?": BEEP .2,50: LET p=p+10: P 
RINT AT v,t;5" *: INK 4 

2070 1F SCREENS (w,ti="A" THEN PRINT AT v,t5"?": BEEP 1,-20: PRINT AT w,tj* "oL 
ET p=p-5 

2080 1F ATTR (w,t)=207 THEN PRINT AT w,t-15*242*: FOR x=-10 TO -3: BEEP .120,x: 
NEXT x: PRINT AT v,t-15" — *: LET p=p-50 

2090 MEXT y 

¿100 60 TO 770 

2200 

3000 REM RUTINA DE PRESESTACION 

3001 

3010 CLS : BORDER 6: PAPER 7: INK 2: CLS 

.3020 FOR n=-10 TO 110 

3030 PLOT 125,40: DRAW 10+*n,-30+n 

3040 PLOT 125,40: DRAW -10-=n,-30tn 

3045 BEEP .01,40 

3050 MEXT n 

3060 RETURN 

3090 

3200 REM WICTORIA 

3201 

3210 PRINT AT 3,55 INK 05 FLASH 15"! YICTORIA!!!" 

3220 FOR n=0 TO 2: FOR m=0 TO 60: BEEP .006,m: MEXT m 

3230 NEXT n 

3240 PAUSE 25 

3250 CLS + 60 10 6020 

2290 

2000 REM AUTINA FIMAL DEL ¿UESS 

ECOl 

évi0 PAUSE 200: CLS ; BORDER £: PAPER 7: lin 0: Clos 

£020 PRINT AT 7,3; FLASH 1;"BUIERE JUGAR OTRA VEZ? (s/ni”" 

5030 PRINT AT 14,1;*(Para jugar otra vez pulse el boton de disparo o la tecla ” 
nro - 
6040 JF INKEYS="5" OR iN 223=16 THEW-60 TO 510 
6050 IF INKEYS="=" TREN 60 79 4070 

E050 66 10 6040 

507% 66 SUP 3010 

¿680 PRINT AT 1,3;"Este programa se destruira 
6090 PRINT AT 0,75"! 0 !HASTA — OTRA!!:" 

6100 FOR n=0 TO 25 

6110 BEEP .01,20: PAUSE 10 

6120 NEXT n 

¿130 RAMJOMIZE USA 0 

2200 

00€ REM INSTRUCCIONES 

7661 


en cinco segundos.” 


6 


7610 CELS ; BORDER 6: PAPER 7: INK 0: CL5 


7020 PRINT AT 1,4; INK 25"INSTRUCCIONES 19919997997799999997) 
a 
7030 PRINT INK 2;AT 3,8;"V,LA BATALLA FIMAL EEE 


7040 PRINT AT 5,45"? Carlos k Roberto Ferrero*¡AT 6,12;"Mayo 1985" 

7050 PRINT AT 9,4¡"Detalies de tu mision,” 

7060 SRINT AT 11,0;"Eres ej camara Mike Donovan (tanintrepido como el indiana ] 
cresesel, y deberas atravesar el pa-sillo minado por el que los vi-sitantes env 
lan hibersados a loshumanos para coverselos. 'BUE CANIBALES,OYE!.”* 


"O7O FER a=0 TO 5: FOR 0.0 13 56: BEEP 9.006,m: MEX 
7075 MEXT 5 
7080 PPINT AO;" ULSA UNA TECLA PARA CONTINLAR"; PAUSE 0: ¿LS 

7035 PRINT AT 1,5; "Deberas destruir les minascon tu laser o esquivarias, sinote 
cestrairan. Rescata 2 tus compatriotas con la esclusa que tienes en el morro de 
3 MAVE. Coso consumes energia al moverte y disparar, puedes cogerlade 
sos decositos que-ha,, Si disparas contra los **"NI-BERNADOS”* o la e 

sergia, perderaspurtos y el ¿tesc.” 

76979 P22NT AT 14,37 IN% 25 FLASH 15*""PUNTOS""" 

7106 PRINT 27 14,207 INK 2; FLASH 15"""ENERGIA"*" 

E ES A E ? +10 5 CONSUMO -1 RESCATE ? +25; CARGA +2 
J MUERTE  *F? -50 7 RESCATE+:0 ROTURA ENE.A -5 nm DISPARD -3" 

7120 FOR 120 75 5: F9% u:0 70 50; BEEP 0,006,m: NEXT u 

FITO MEYT 8 

7280 PRONTO RO¡" PULSA UNA TECLA PARA CONTINUAR": PAUSE O: CLS 

7150 PRINT 47 3,8; "TECLAS MOVIMIENTO"; AT 6,10; "DERECHA —= 2"54T 8,10;"128UERDA 
= ¡AT 10,305 "1 A5Ek =p 

3160 9P 157 AT 12,3¡"PLEDES UTILIZAR El JOYSTICK 

7:80 PRINY AT 15,25" 1Al avanzar el juego aumenta 

7:90 PRINT AT 20,7; FLASE 15*"'* ANIMO Y SUERTE! ''* 
7200 FO? n=6 *0 3; FOR m=0 TO 50: BEEP 0,006,m: NEXT a 
7210 NEXT 

229 el TO 50€ 

PO 

Us TEN GENERACIÓN DE GAAFICOS 

eco! 

7550 RESTORE +06) 

7020 FOR a=144 70 153: FOR b=0 TO 7 

$030 READ e 

7040 PELE (U5R CHAS alrb,c 

30d) "EA? bi NEXT a 

9560 JATA 0,0,63,27,15,3,1,1 

9070 CATA 35,126,233,153,102,153,235,235 

9080 DATA 0,0,232,216,240,192,128,128 

9090 DATA 125,126,90,90,66,126,50,24 

9100 DATA 129,28,16,84,16,112,0,127 

7110 DATA 34,90,153,102,102,153,90,36 

9130 ZSTA 66,165,126,36,36,126,155,66 

427% CATA 152,26, 125,90,24,36,35,165 


KEMFSTON" 
la velocidad.)” 


EA GA 7, 37,01,.33,129,66,34,16 
4050 72070 136,132,225,141,129,66,68,72 
+16) PETIOR 





“«ARRASER” 
Vueltas de contador: 014 (B) 
Memoría ocupada: 6035 bytes 


E trata de un juego de habilidad y 
suerte con un helicóptero sobrevo- 
lando una ciudad enemiga, a la que debe 
arrasar y poder aterrizar. Lanza bombas 
con 0 y disparar 3 cañonazos con P. Las 
defensas de la ciudad disparan antiaéreos. 


10 BORDER 0; PAPER 0: INK 7; BRIGHT 1 

11 DATA 2,15,43,79,255,255,20,126,1,131,255,254,192,0,0,0,0,0,0,0,0,0,0,255,0, 
0,9,9,0,0,0,222 

12 DATA 0,0,0,8,24,60,12,2,10,64,42,25,144,22,41,2 

14 DATA 255,153,153,153,152,255,1539,255 

13 DATA 24,24,50,50,50,156,122,118,233,245,255,16,8,8,8,8,0,9,0,204,0,0,0,0 

17 PESTORE 

26 FOR a=0 TO 79; READ 3: POKE USR *a*+n,q: NEXT 

22 RESTORE 

23 59 SUR 1000 

24 PORDER 9: PAPER O 

23 PRINT AT 0,07 INK 25 PAPER 8; BRIGHT 4; INVERSE 15"S OF THWARE ? A.Mara 
aca 2704” 

El 2EN ciudad 

£2 PRINT A" 21,0; THK Ty PAPER 04+29777979777997999997977999799772* 

££ PRIMT AT 19,0; BRIGHT 15 INK 4; PAPER 0" 2? E 

LY ORINT AT 12,05 BRIGHT l: INK 4; PAPER 95* ?- E 

70 FOR n=2 10 12 

72 ET :=INT ¿ANDAS +105 LET +=INT (RMDES) + 

73 FOR 3=20 TO x STEP -1: PRINT AT j,n5 INK t; PAPER 7; BRIGHT 15*?*: NEXT j: 
MEXT ñ 

75 FOR a=16 10 13 

7£ LET 1=INT ¿RKDEBIA Ls LET t=INT (ANDAS) +) 

77 FOR ¿=20 10 : STEP -¿: PRIBTAT j,nj INK t5 PAPER 752%: NEXT ¡3 NEXT n 

73 FOR m=20 6 23 

79 LET > INT ¿RIDAS)+145 LET t=INT (RNDES)+1 

20 FOR ¡=20 TO x STEP -1: PRINT AT ¿m5 INK tj PAPER 75"2*; NEXT j: NEXT n 





Ti 





81 FOR n=25 TO 28 
92 LET x=INT (RNDFS)+14; LET t=INT (RNDES) +1 
83 FOR ¡=20 TO x STEP -1: PRINT AT jm; INK tj PAPER 75"?": NEXT j: NEAT n 


70 LET +=0: LET 1=2; LET c=2) 

95 PRINT AT 24,INT (RNDE27)+25 INX 2; BRIGHT 1; PAPER 7; FLASH 15*0" 

100 REN rutina principaliiHEH 
201 REY PERA 
110 L£T £=c-1 
445 LET e=INT (RADA); IF e=2 THEN LET c=c-1 
120 IF cí=0 THEN PRINT AT 1,05” "SAT 1-1,03* ": LET c=30: LET i=]+1 
130 TF INKEYS<)"0" THEN LET h=INT (RNDF9)+1: LET i=INT (RNDF26)+2; PRINT AT h,i 
7 INK 45"%": BEEP .01,-20: PRINT AT h,ij INK 75*?2*5AT h,ij" *: 60 TO 200 

140 FOR n=1+1 70 20; PRINT AT myc+tij INK 6; PAPER 0;"?*; BEER .01,35 

145 1F ATTR im+1,c+1)=250 THEN 60 TO 2000 

150 1F SCREENS ¿mel c+) 05? * THEN PRINT AT nyctl;" *: FOR j=1 TC 5; PRINT AT a 
+1,c+ 1 BRIGHT 1; INK INT (RNDF6)41; PAPER 05*?2": BEEP ,01,-20: NEXT j: PRINT AT 
¿c+lj? *5AT a,c+1;" *: 50 70 200 

160 PRINT AT nyctl;? * 

170 NEXT $5 

250 IF SCREENS (1,c)c)* * TREN 60 TO $90 

210 PRIMY AT i-1,c5 INX INT (RNDE3)+45 BRIGHT 1; PAPER 05*?2  *; BEEP ,001,20; 
PRINT AT 1,05 INK 7; BRIGHT 1; PAPER 0;*2?2 * 

215 LET g=1N7 (RNDAS): IF 9()2 THEN 60 TO 218 

214 LET A=INT (RNDID)+1; LET i=INT (RNDF26)+2: IF ATTR (h,i)=71 THEN 60 TO 3000 

247 LET $=1NT (RNDF3)+1; 1F 4=2 THEN FOR m=1 TO 3: PRINT AT h,i; 1NK 7; PAPER O 
YE": BEEP ,01,-20: PRINT AT h,i; INK 6; PAPER 05"2'5AT h,iz" *: NEXT n 

220 1F 1=20 AND c=2 THEN 60 TO 800 
225 1F IMKEYS="p* AND £(=2 AND c)=5 THEN PRINT AT l,c-5; BRIGHT 1; INK 4; PAPER 
0577729: BEER .008,-25: BEEP .01,3: PRINT AT ],c-35* "2 LET f=f4l 
220 565 70 100 

500 FOR n=1 TO 7; PRINT AT 2,c; INK INT (RNDF4)+25 PAPER 0; BRIGHT 15"222*5AT 1 
1,0522": BEER .01,-285 BEEP .92,-1£: NEXT n 

505 PRINT AT 1,05?  "5AT I-dyej? >” 

520 FOR n=10 TO 15: PRINT AT n,13; INK 7; PAPER 0; INVERSE 1; BRIGHT 1;*R.1.P.” 
: MEXT n: FOR n=1 TO 2: BEEP 1,0; BEEP 1,2: BEEP .5,3; BEEP .5,3: BEEP .3,2: BEE 
P 1,0: BEEP 1,3: BEEP 1,5: BEEP 2,7: DEEP .75,7, DEEP .25,8: BEEP .5,7: DEEP .), 
0; BEEP .5,2; BEEP ,5,2: BEEP 1,0; NEXT n 

530 PRINT AT 20,05 INK 4; PAPER 7; INVERSE 15* pulse ENTER para otra pasada ” 
; PRUSE 0: C1S : 50 705 

800 PRINT AT 17,25 INK £;5 INVERSE 1; FLASH 1;"POLVORIN ALCANZADO.0,K.”: FOR m=1 
0 TC 15: PRINT AT. n,10; INX 2; PAPER 7; INVERSE 15 BRIGHT 1;"4RHHHHAH"; NEAT 
: FOR n=1 79 2: BEEP 1,5; BEE? 0.2,2: BEEP .5,8; BEEP .5,3: BEEP .5,2: BEEP 1,14 
; BEE? ,05,é; BEEP 1,5: BEEP 2,7: BEEP .75,9: BEEP .25,6: DEEP .5,1: BEEP .3,10; 

BEEP .3,3: BEEP .5,2: BEE? 1,3: NEXT n 

816 PRINT AT 20,0; IMK 4; PAPER 7; INVERSE 15" pulse ENTER para otra pasada * 
+ PAUSE 0: CLS : 560795 


Fid 
Fa A 


de 


8 





1000 PAPER 7; BRIGHT 0 

1962 ECRIER 3 

1619 PRYST AT 10,10; INK 45 BRIGHT 15" ARRASER."¡AT 11,10; INK 25 BRIGHT 0 

A e 

1015 PRINT AT 15,15; INK 25" ?2 "¡AT 14,155 INK 05 92 ” 

1020 PRINT AT 19,0; INK 05" ? A. Maranon 1784” 

1030 PAUSE 350: CLS 

1040 REK instrucciones 

¿0509 PAPER 0: CLS ; PRINT AT 3,05 INK 6;" ARRASER es un Helicoptero de combat 

e [?2) en mision de — total y heroico arrasamiento de una indefensa ciudad u 

uy bona como podras coaprobar. Tu sision es arrasarla si deseas 
eterrizas tranquilamente en sus avenidas.” 

2050 PRINT AT 12,0; IRK S;"PULSA O PARA TIRAR ZAMBOMBAZC"; PRINT : PRINT INK 55" 

Dispones de 3 disparos de cañon para evitar choque pulsando p.*; PRINT ; PRINT 
>; PRINT INK £;5"pulsa enter para seguir”; PAUSE 0; CLS ; RETURN 

2390 PRINT AT aci” * 

2100 FOR n=: T9 100 

2156 LET a=iNT GRNDESI+15: LET b=INT (RADF27)+2 

2160 PRINT AT a,b; INK INT (RND+7)+1; BRIGHT 1; FLASH 15*2*: BEEP ,01,1INT (RNDI- 

30): BORDER INT (RNDF7?): NEXT m 

2170 E2 TC 800 

3000 FIR p=1 TO 5; PRINT AT 1,cj CVER 4; INK INT (RNDF3)+45*?"; BEEP ,03,-15: NE 

XT n: PRINT AT 1,05" ” 

3100 PRINT AT J-1,cj" — *": FOR n=1+1 TO 18; PRINT AT n-1,c5 INK 25" *54T nyc;jj 
INK 6; OVER 15"22"¡AT n-1,c5 INK 05" *: BEEP ,01,8: NEXT n 

3200 FOR d=1 TO 10; PRINT AT mc; INK INT (RNDE/1+15"22*"; BEEP .01,-15; PRINT AT 
Bye” 5 NEXT Ad 

3300 69 TO $20 


SI PREFIERE SUSCRIBIRSE 
POR TELEFONO... 


Y 

















Con este programa podra escribir en pentells o En impresora 8 Ed 
coluNhas por Linea. 


Pódra empleario en cual quier programa CoMo Complemento 
para poder ofrecer una Mejor presentación 3 Ed ColuNnas; Para 
Bllo debera Cargar Encima de su prourama el codigo Maquina de ES 
te (que a continuación vanos a grabar). 

Cuando tenga grabado el codigo Maquina Y quiera pasarlo 
a su proarala debera hacerlo Mediante: 


LOAD""CODE :LORD”"CODE 
Despues debera incluir en su programa la linea 9990-9991 


-9992, y ademas debera incluir El posicionamiento del punto de 
iNPpresión. asignando un valor para “s" (columna) y otro valor pa 


ra "y" (Lin833 


Lo que desee iMprikir 3 6d columnas debera Cargario En 
la daridble “us” 


conto MRE 


SÁ Daraciere=s 


64” 
Vueltas del contador: 028 (A) 
Memoria ocupada: 16395 bytes 


'STE programa permite escribir en 

la pantalla, o en la impresora para 

Spectrum, con 64 letras o acaracteres 
por línea, en vez de 32, 

Se puede emplear en cualquier pro- 

grama como complemento para ofrecer 

mejor presentación o aprovechamiento 





du EL CASSETE COn UNA CINTA VIRGEN Y PONLO LISTO PARA CRA 





5 PAPER 1: BORDER 1: CLS 

10 CLEAR 41999 

20 PRINT AT 11,3; PAPER 2; INK 7¡"ESPERA UN MOMENTO POR FAVOR": PRINT AT 13,0; 
PAPER 23 IKK 7;*ESTGY CARGANDO EL CODIGO MAQUINA" 

25 FOR m=0 11 787 

5 FOKE $2000+ WN PEEK C:SGI60Ni: MEXT OM 

79 ET Esi0 

30 FOR 1=6200€ 1042756 

11 IF PR2=IMT 1342) THEN LEY 5=30 

27 BEER 6.0:,2 

15 REPO 6: FOME 3,67 NEXT 

¿10 DATA 9,64,0,64,64,64,64,09,0,160,160,0,0,0,0,0,0,44,224,64,224,64,64,0,0,64, 
224,123,224,32,724,64,0,160,32,44,€5,178,169,0,0,192,192,128,54,160,150,64,0,64, 
64,0,9,0,0,0,0,64,128,128,128,123,64,0,0,63,12,33,32,32,64,0,0,0,64,224, 224,224, 
-6,0,0,0,0,54,234,64,9,0,9,0,0,0,9,44,£4,9,0,0,0,0,224,0,0,0,0,0,0,0,0,64,0,0,0, 


12,32,64,0,122,122,0 


10 


de la pantalla. 


rarlo a otros. 


126 DATA 0,224,1£0,150,160,160,224,0,0,192,64,£4,64,64,224,0,0,226,32,32,44,128 
,224,0,0,224,32,192,32,32,192,0,0,32,%6,140,160,224,32,0,0,224,128,192,32,32,1$2 
,9,0,224,128,226,160,160,224,0,0,224,32,32,64,128,128,0,0,224,160,64,160,140,224 
,0,9,274,160,160,274,32,224,0 

130 DATA 0,9,0,64,0,0,54,),0,9,0,0,54,0,54,64,0,0,32,64,128,64,32,0,0,0,0,0,224 
,9,724,0,),0,128,54,32,64,128,0,0,192,32,32,44,128,0,128,0,0,224,150,160,96,56,0 

120 DATA 0,54,160,160,224,160,160,0,0,192,160,192,192,160,192,0,0,224,128,128,: 
78,125,276,0,0,192,160,160,160,160,152,0,0,224,128,192,128,128,224,0,0,224,128,1 
92,176,126,128,0,0,224,128,128,160,150,192,0,0,160,140,160,224,140,160,0,0,224,5 
4,66,64,52,274,0,0,772,32,72,32,150,64,0,0,160,160,192,192,160,160,0 

14] DATA 0,125,125,123,125,126,224,0,0,160,224,224,160,160,160,0,0,192,160,160, 
156,160,160,0,0,64,160,160,160,160,54,0,0,224,160,160,224,128,128,0,0,224,160,16 
0,160,774,724,54,0,224,160,1£0,192,160,160,0,0,224,128,224,32,32,224,0,0,224,64, 
¿8,$4,66,64,0,0,160,150,160,160,160,224,0,0,160,160,160,160,160,44,0,0,160,160,1 
50,224,224,224,0,0,160,160,64,64,160,160,0,0,160,160,160,64,64,64,0,0,224,32,64, 
£4,128,224,0 


En.-el programa se explica la forma de 
erabar el código máquina para incorpo- 


Lam 


A a a A PIC 


Dr a e e AA 
a EOS 1 dd Cl ma nr 


MN 0 tire de 
2 a cm do 


+ 


LASTRE Lar 004 


! Sn 
e o par 


A a as 


"ERAS Y rd aria + 


da mn ña Niro iy Lista PERSA 


e 
as y a, 


e e ria gg PU PCI ls sr ri 


Ps s : 
tl CL EMSSETE £o0 Ue CEA HIRE y po LISTO iaa Ea 


150 DATA 0,192,128,128,128/128,192,0,0,128,126,54,64,32,32,0,0,96,32,32,32,32,9 
6,0,0,64,224,64,64,54,64,0,0,0,0,0,0,0,0,224,0,74,160,128,192,128,224,0 

160 DATA 0,0,224,32,224,160,224,0,0,128,128,224,160,160,224,0,0,0,224,128,128,1 
¿8,224,0,0,32,32,224,160,160,224,0,0,0,224,160,224,128,224,0,0,76,128,192,128,12 
3,138,0,0,0,224,160,160,224,32,172,0,128,123,224,160,160,160,0,0,64,0,192,64,64, 
224,0,0,32,0,32,32,32,160,64,0,0,160,160,192,160,160,0,0,128,128,128,128,128,64, 
0,0,0,160,224,224,160,150,0,0,0,192,160,160,160,160,0,0,0,44,160,160,160,54,0,0, 
0,224,166, 1£0,224,129,128,0,0,224,150,160,224,32,32,0,0,76,128,128,128,128,0,0,0 
1236,129,274,32,224,0,0,64,224,54,64,64,32,0,0,0,160,150,160,150,224,0,0,0,160,1 
£60,150,160,£4,0,0,0,150,160,150,224,224,0,0,0,160,1£0,64,150,160,0,0,0,160,150,i 
60,95,32,192,0,0,224,72,64,128,224,0 

170 DATA 95,64,64,128,64,64,96,0,0,128,172,128,128,128,128,0,192,64,64,32,64,64 
,192,0,64,160,0,9,0,0,0,0 

200 CLEAR 62999: PRiNT AT 11,3; PAPER 2; INK 7;“ESPERA UN MOMENTO POR FAVOR": P 
RINT AT 13,05 PAPER 2; 1NX 7;"ESTOY CARGANDO EL CODIGO MAQUINA" 

201 FOR M=0 TO 767 

202 PORE 63000tn, PEER dl 
203 NEXT M 

204 LET 5=40 

205 FOR 1=63008 TO 63755 
206 1F 1/3=INT (1/31 TREN LET $=0 

207 BEEP .01,5: READ €: POKE 1,C: NEXT 1 

219 DATA 0,4,0,4,4,4,4,0,0,10,10,0,0,0,0,0,0,4,14,4,14,4,4,0,0,4,14,8,14,2,14,4 
,0,10,2,4,4,8,10,0,0,12,12,8,4,10,10,4,0,4,4,0,0,0,0,0,0,4,8,8,8,8,4,0,0,4,2,2,2 
,2,4,0,0,0,4,14,14,14,4,0,0,0,0,4,14,4,0,0,0,0,0,0,0,4,4,0,0,0,0,0,14,0,0,0,0,0, 
0,0,0,4,0,0,0,2,2,4,4,8,8,0 

220 DATA 0,14,10,10,10,10,14,0,0,12,4,4,4,4,14,0,0,14,2,2,4,8,14,0,0,14,2,12,2, 
2,12,0,0,2,6,10,10,14,2,0,0,14,8,12,2,2,12,0,0,14,8,14,10,10,14,0,0,14,2,2,4,8,8 
,0,0,14,10,4,10,10,14,0,0,14,10,10,14,2,14,0 

230 DATA 9,0,0,4,0,0,4,0,0,0,0,0,4,0,4,4,0,0,2,4,8,4,2,0,0,0,0,0,14,0,14,0,0,0, 
£,4,2,4,9,0,0,12,2,2,4,8,0,8,0,0,14,10,10,6,6,0 

240 DATA 0,4,10,10,14,10,10,0,0,12,10,12,12,10,12,0,0,14,8,8,8,8,14,0,0,12,10,1 
0,10,10,12,0,0,14,8,12,8,8,14,0,0,14,9,12,8,8,8,0,0,14,8,8,10,10,12,0,0,10,10,10 
,14,10,10,0,0,14,4,4,4,4,14,0,0,2,2,2,2,10,4,0,0,10,10,12,12,10,10,0,0,8,8,8,9,8 
,14,0,0,10,14,14,10,10,10,0,0,12,10,10,10,10,10,0,0,4,10,10,10,10,4,0,0,14,10,10 
,14,8,8,0,0,14,10,10,10,14,14,4,9,14,10,10,12,10,10,0,0,14,8,14,2,2,14,0,0,14,4, 
4,4,4,4,0,0,10,10,10,10,10,14,0,0,10,10,10,10,10,4,0,0,10,10,10,14,14,14,0,0,10, 
10,4,4,10,10,0,0,10,10,10,4,4,4,0,0,14,2,4,4,8,14,0 

250 DATA 9,12,8,8,8,8,12,0,0,8,8,4,4,2,2,0,0,6,2,2,2,2,6,0,0,4,14,4,4,4,4,0,0,0 
,9,0,0,0,0,:4,0,6,10,8,12,8,14,0 

260 DATA 0,0,14,2,14,10,14,0,0,8,8,14,10,10,14,0,0,0,14,8,8,8,14,0,0,2,2,14,10, 
10,14,0,0,0,14,10,14,8,14,0,0,6,8,12,8,8,8,0,0,0,14,10,10,14,2,12,0,8,9,14,10,10 
. ,10,0,0,4,0,12,4,4,14,0,0,2,0,2,2,2,10,4,0,0,10,10,12,10,10,0,0,8,8,8,8,9,4,0,0, 
0,10,14,14,10,10,0,0,0,12,10,10,10,10,0,0,0,4,10,10,10,4,0,0,0,14,10,10,14,8,8,0 
,0,14,10,10,14,2,2,0,0,6,8,8,8,8,0,0,0,14,8,14,2,14,0,0,4,14,4,4,4,2,0,0,0,10,10 
,10,10,14,0,0,0,10,10,10,10,4,0,0,0,10,10,10,14,14,0,0,0,:0,10,4,10,10,0,0,0,10, 
10,10,6,2,12,0,0,14,2,4,8,14,0 

270 DATA 6,4,4,8,4,4,6,0,0,8,8,8,8,8,8,0,12,4,4,2,4,4,12,0,4,10,0,0,0,0,0,0 

500 BEEP 1,20 : 

559 PAPER 1: INK 7: BORDER 1: CLS 

599 RESTORE 700 

500 FOR t=1 TO 13 

631 IF t=7 THEN PAUSE 500: BEEP 1,30: CLS 

505 READ y,x,w6: 60 SUB 9990 

610 NEXT t 

650 BEEP 1,20 

700 DATA 2,0,"ESTE ES SU MUEVO JUEGO DE CARACTERES A 64 COLUMMAS:",4,0,*!""BAS% 
k()0=+=5 "21H, 5 1234567890ABCDEFGHIJKLMMOFORSTUVWXY2"5"wdabcdefghijklmnopgrstuv 
yz" 

710 DATA 7,0,"PARA EMPLEARLO DEBERA CARGAR EL CODIGO MAGUINA DE ESTE PROGRAMA E 
NCIMA DE SU PROGRAMA EN BASIC Y COPIAR EM SU PROGRAMA LA SUBRRUTINA 9990-9991-99 
92",12,3,"+Debe cargar en "*x"* e "y", el posicionamiento del punto de ¡mpresi 


54H) 





on (Las coordenadas)",16,3,*"*Y debe cargar en ""w$*" el texto a imprinir a 64 co 
lumnas.*,21,0,"? Matias Casas Garrido. 2?” 

720 DATA 9,0,"Con este programa podra escribir en pantalla o en impresora a 64 
colusnas por ¡inea.”,3,4,*Podra emplearlo en cualquier programa como complemento 

para poder ofrecer una mejor presentacion a 64 columnas; para ello debera ca 
rgar encima de su programa el codizo maquina de este ¿que a continuacion vamos a 
grabar),*”,?,4,"Cuando tenga grabado el codigo maquina y quiera pasarlo a su pro 
grama debera hacerio mediante;",15,6,"LOAD""""CODE:LOAD"***CODE",12,4, "Despues d 
ebera incluir er su programa la linea 9990-9991-9992, y ademas debera incluir e 
| posicionasiento del punto de impresion, asignando un valor para *"x"” [columna 

) y otro valor para *""y"" (linea)” 

730 DATA :7,4,"Lo que desee imprimir a 64 columnas debera cargarlo en 
bla "ya"? 

740 DATA 20,0,"PREPARA EL CASSETE CON UNA CINTA VIRGEN Y PONLO LISTO PARA GRA 
BAR" 

800 SAVE "S4COLUNNAS*CODE 52000,768: SAVE "G4COLUMNAS "CODE 63000,768: CLS : PRI 
NT AT 10,05 PAPER 65 INK 0;"PONGA EL CASSETTE EN **PLAY*" PARA VERIFICAR": WERIF 
Y *"CODE 62000,768: VERIFY ""CODE 643000,768; CLS ; PRINT AT 10,105 PAPER 6; INK 
0; "CORRECTO": PRINT AT 15,0;"HAS GRABADO EL CODIGO MAQUINA QUE DEBERAS CARGAR 
ENCIMA DE TUSPROGRANAS PARA PODER IMPRIMIR Á 6% COLUMNAS" 


10 BEER 1,30 
9L0 sTOR 
0950 PRINT AT Y,Xi 
7991 FOR N=1 TO LEN WS: LET PM=(N/2C)IMT (NY2)): POKE 23606,24+(244PM): POKE 236 
07,245-(44PM); PRINT CHRS (CODE WSIN))55 IF PM=1 AMD NC)LEN WS THEM PRINT CHRS 8 


0992 OVER PM: NEXT M: OVER 0: POKE 23606,0: POKE 23607,60: RETURN 


la varia 


AAA —_——_—_———————————————  _———__ —____—_—— —_—_——_—==--AAA 


PPP PPP === _ 2  ———_— —— — -»>-— 


1] 





“KATAQUIMBA” 

Vueltas de contador: 015 (B) 

Memoria ocupada: 8390 bytes 
E trata de un juego con un explo- 


rador en unas ruinas griegas debe 
encontrar un tesoro escondido, pero debe 


p2 


RATABUIATER 


A 


ej JA TC 





sortear los pasadizos que a veces están 
cerrados por rejas que deberá abrir con 
las llaves que se irá encontrando, tiene 
un número limitado de llaves a coger, 
Puede moverse en las cuatro direccio- 
nes, si encuentra escaleras para bajar o 
subir. 


Con el l va a la izquierda, el 0 a la 
derecha, bajar con el 6 y subir con el 7, 
Si se encuentra prisionero entre rejas, 
pulsando R se vuelve a empezar. 






O PARTS 
EN PRA 

CLEAR 14259; 60 SUB 2000 

9 5UB 500 | 


E 
k 


7 60 2UB 200 
10 1 IMXEYSE=** TEEN G0 TO 10 
15 LET jsjtd! 1F 5=2 TREN LET j=l 
29 1F x518)="2* TREN SEEP ,004,30; 50 TO S0 ci 
$0 IF IRKEYS="1” TREN LET x3=xS(LEN x$)+x$11 TO LEN x$-1); LET ad=asiLEN as)ta y 
$01 TO LEN 55-10: PEIMT AT 1,7; 1K 3; PAPER £j23 (1 TO E)5AT 141,7j3$11 TO B)5AT 
1,15; INE £j5 FAPER Ojc$5AT 141 155pél3 ¡PT 1,277 PAPER 0j* SAT 141,175" E 
"AT 11,35 PAPZR 75 INV AGISOGIGAT 142,3516(5)5 LET mec=USR 44325: BEEP 
2004, 403 LET ps 
AS IF OYE (79="9" THEN BESP ,004,30: 60 TO £0 
30 15 TNEYS="9" THEN LET x8=x6(2 TO LEN x$)+x$11): LET a$=a$(2 TO LEN a$)+tas$! — 
10 PRIMT AT 1,175 158% 35 PAPER 635x809 TO 153547 1e2,125219 TO 1£);AT 1,7; PAPE 





R 05 "SAT 141,75 "SAT 1-1,33 7EX 43 PAPER 731$15)54T 1+2,351513) 
¡AT 3,1355 1NK 65 P£PER O7AejaT 144, ,15538(3)5 LET ec=US% 443005 BEEP .0004,50: LE 
1 122 


30 TF INKEYS="9" TRER IF p=1 THEM IF x$(8)="2" THEN BEEP ,05,10; PRINT AT 1,14 

y PAPER ¿57 00 LET uBldl=" 5 LET s=l 

79 TE TNKEYS="0" THEM 21F 222 THEN IF x819)="?2" THEN BEE? ,05,10; PRINT AT 1,17 

PAPER Est *1 LETOy$09)=" *: 2ET s=l 

26 1F INKEYS="q" THER 1F s=l THEM IF e=l THEN FOR n=l TO 10: BEEP ,C04,m: NEXT 
A =1 THEN 15 1=2 THEN EOR n=l 70 10; BEER ,00%4,n: NEXT 


EME HER Fl 
e2 PELMTAT 1,175 TARER 57% *pAT Ie, 10 p? %0 LET xS19)=" "2 LEY 2$19)=" *: LES 


se 















10 IF INREYSS 07" TREMOIS 3010 THEN 1F (x819)=">* DR x318)="2*) THEN FOR n=]-! 
73 10M PRIME AT m2) PAPER 03" "0 NEXT n: LET 1=1-1; LE 


Tos=]ET GENDRLEN v£jals FOR m=l 70 55 LET x51q)="2*: LET astq)="?*": NEXT m: LET 
esTUT IPNDALEM x6)4 4: LEY x3=xS1g TO LEN x$)x511 TO q-1): LET as=asiq TO LEN as 
213411 70 9-1) 

112 1F e THEM 1F (3819)="9* OR $18)="2*) TREN FOR m=1-1 TO 143; PRINT 
AT 633 PAPER 03” “3 NEXT a: LET 1=1+1; LET q=INT (RADA 
LEX 185: FOR s=l 13 52 LET qINT (RRDELEN x3)+1: LET x£tg)="?*"; LET asiq)=">": A 
YT ms LET xB=b(g TO LEN 38)4x801 TO qui); LET as=a$lq TO LEN 2$)+as(1 TO q-1): 
IF 10=17 TREN PESP 1,-20: 50 12 llegada E 

203 17 IRMEYES"7" THEN FOR 9=1 70 3: FOR n=1 10 20: PRINT AT 8,0; INK INT !RNDX 
El T E TETENTARLO DE NUEVO, NO?, .*1 BEEP ,03,54PI-1: NEXT n; NEXT g: 60 T0 1 
320 56 TE 13 7 
MED REA RH 
500 REX cralicostRHIDAR 

510 DATA 5,0,127,151,193,274,240,248,60,114,210,250,250,62,60,35,244,242,2%3,24 
3,743,740,224,192,90,218,218,90,52,24,120,248,244,242,243,244,248,226,193,173,66 
,948,704,71,31,108,298,143 | 

515 PATA 0,0,129,193,131,7,15,31,50,78,75,93,75,124,60,34,42,79,207,47,31,15,2, 
3,90,91,51,90,124,24,90,51,47,79,207,47,31,71,195,131,62,91,113,226,188,54,79,2 
y 


E3 








520 BETA 139,255,123,129,255,129,129,235 
526 DATA 255,255,24,34,219,35,24,253 

330 2ATA 255,22,73,255,235, 129, 129,255 
350 MTA 755,129,129,205,299,24,24,205 
535 DAYA 178,192,95,43,152.7€,173,255,1,3,6,12,25,50,101,255,60,60,50,128,126,1 
24,253,235,60,60,£0,60,40,60,60,80 

=33 DATA 0,23,20,25,32,53,224,54 

400 RESTORE 510; FOR u=0 TO 167: READ q: POKE USR "a*+n,q: EXT n 
220 RETURN 

720 REM inicializtor HIRE RH HR HH 

705 LET lMeoada=2000 








F1D LET e? "UE FF E E... PP *.*“ 3 
a 

715 LET a$=* E ss +. P Y 

750 LET r=0: LET j=d: LET )=18: LET s=0 

740 DIN 182,25): LET 1911)="229929229229299299922999229%; LET 1$12)="92292992 
PIP PIIII009+ 


770 31M p312,2): LET pS14)="29*;: LET p$(2)="29*; DIM d$12,2): LET 4$(1)="22% L 
ET d512)="92" 

706 LET c$2"27*: LET k9="22" 

790 REN HARE 

772 PAPER 0; INK 6: BORDER 0; CLS 





227997727777" 
200 FOR £=9 TO 20; PRINT INX 4; PAPER 7547 n,05%222"54T.n,285"2222"2 NEXT 5 
540 PRINT AT 21,07 PAPEE 25 INX 7; BRIGHT 1;* SOFTWARE ? H,EUGENIA CUERVO * 


250 REF deccraicHHiHHIEE 


906 PEIITOAT 0,05 1UX 7; PAPER 05" 92272? 27277 
210 PRIRT AT 1,05 INK 7; PAPER 0592292222 72977772777 


320 PRINT AT 2,05 10. 27 PAPER 0529 22.2 2977 22 : 
725 PAINT AT 3,07 JEK 7; PAPER 052? 22 2 ?7 3 222 ” 
726 PSINT AT 4,05 1EK 7; PAPER 05"2? 79 9729779 97 977 ” 
040 PRINT AT 5,05 INR 7; PAPER. 05%? 9? ? 779227? 227279272 " 
950 PRINT AT 6,05 10% 75 PAPER 052 927? 9997993 92777272 * 
¿000 RETURA ' y 


2000 REA CORRA | y 
2050 DATA 8,£4,17,0,64,213,225,35,197,1,31,0,2£,237,176,43,119,0,25,35,19,193,18 ES 


¿240,201 - EAS 
O BASA IA EA BR 
31 pad 

2260 RESTORE 2530 

2306 FOR 254200 TO 443495 READ m5 POXE nas HEAT OR 

200 PETORE 

4005 RE lead ad REEVES 

2010 REZTORE 015 

105 del, 26,84,172,130,180,213,176,212,254,4,8,134,72,55,23,22,255,240,240,240 
1240,112,43,31,253,1,97,57,1,1,1,205 

3030 FOR a=0 TO 21; READ q; POKE USAR *5*+8,q: NEXT a 

3490 PRIMT AT 1-1,0; 3ir 7; PAPER 4p172399999999999999997779999929999*; AT 142,05 


O A A 


14 





1919579999999999799997977977779799%7 FOR r.=-20 TG 50; PRINT AT 1,155 INK 6; PAPER 
GPUORTGAT 144,155 *97 7587 141,95 PAPER 6; INX l; BRIGHT 15 FLASH 15" 22 *5n7 1 

1457 77 5 FEE 02,0; BOXDER INT 12NB47): PRINT AT 3,05 FLASH 15 1INK 9; PAPER 
INT IRNDRI E" LO Hñ CONSEGUIDO POR FIM.NO? *"s NEAT m: PAUSE 0; CLS ; RUN 

¡600 REN presentacion RH 

7100 PAPER Ll: BORDOO 2; [LS : 1RX 4 

7103 FC esi07 70 120 STEP -4; FLOT 0,77 DRAM INR 45235,0: NEXT a 

3110 PRINTAT 17,05 16h 55 "SOFTUARE ? Y Eugenia Cuerva 1985" 

7120 FOR 3=1 70 40; BESP ,02,5: FOR a=2 10 2: BEEP .0l,j¡4P1-1 

2200 PETET AT 10,11 INK 252 ? 099292999 979799779 779 

7300 FRINT AT 11,17 1NK aj"9? 72779777 79972797" 

7800 PRINT AT 12,1; INX pj??? 29279272 99 977920722 

7305 PRINTATOI13,15 1239 97927737797779329 

7300 NEXT a 

PES0 MEXT j 

7560 BEEP .3,10; 2eEF 1,20 

7330 REM instrucciones RRA AH 

2050 PAPER $; DIK 7: BORDER 4: CLS 

2100 PRINT AT 4,10; 158 2; PAPER 0; FLASH 15" INSTRUCCIONES” 

2200 PRINT : PRINT : PRINT 

2300 PRINT INX 7;"EL FANOSO EXPLORADOR PIONISIO LANAS HA DECIDIDO ENCONTRAR 
EL FAMOSO TESORO ESCONDIDO EN LOS SOTANOS PARADOJICOS DE LA ANTIGUA CIUDAD 
DE KATARIMEA": PRINT 

ESCO PRINT INX 35 PAPER 25*Para ira la izquierda pulsar 1 Para la derecha 0. 

Pera bajar c subir por las escaleras 607, Para abrir lasr 

ejas debera de towar las llaves ? pulsando P, Para romperlas acerca 

rse y pul sas lu tecla 9,*; PAUSE $00: CLS 

2500 PRIX AT 19,93 PAPER 7; 1MK 0;*Ojo!,pues las llaves se van agotando jas 

¡ pues ne abuse de laz lavecitas. Si nc tiene salida pulse R para reconenz 

ar.*: PAUSE 300: ELS 

2109 RETUSN 





15 


16 





“BIP-ZAP” 
Vueltas de contador: 016 (B) 
Memoria ocupada: 8308 bytes 


L juego consiste en que ZAP, el 
coyote que viaja en una vagoneta, 
debe atrapar a BIP el pájaro trotón, que 
camina sobre la vía del tren. El coyote 
avanzará apretando intermitentemente 
el O al ritmo adecuado.' | 
Hay que intentarlo antes que llege el 
tren expreso que atropellará a ZAP el 
coyote. 


BIP-EAP 








$190 FOR n=l TO 9 STEP 3: PLOT 60,75: DRAW -15,8-n: NEXT n; FOR n=1 TO 9 STEP 3: 
PLOT 70,75; DRAY 15,0-105 NEXT 7 

4110 LET 28="70 SOY BZAPA, EL COYOTE MAS TEMIDO DEL DESIERTO DE ARIZONA... PAS 

SA ALGO TIO? PARA ATRAPAR ABBIPE El PAJARO TROTON, HE DE MOVER CON EL RITA 

0 ADECUADO LÁ TECLA 608" 

4111 LET s=11; LET d=0 

8115 FOR msi 70 LEN 28: LET s=stls IF 5529 THEN LET d=d+1: LET s=11 

4117 PRINT AT d,s5 INK INT (RNDF6)+2526(n): BEEP .02, 1NT IRNDE-10)-10; PAUSE INT 
(RADIO +1 

3150 CUER 1: PLOT 50,70; DRAW 12,-5: DRAW 3,-2; DRAW 12,8 

4125 OVER 0: NEXT h 

4500 FAUSE 200; INK 7; CLS ; RETURN 

3000 REM grafico 

2005 RESTORE 8010: FOR n=0 TO 167; READ q: POKE USR "a"+n,q: NEXT n; RETURN 

8010 DATA 0,0,8,24,24,56,216,48,16,56,120,89,89,121,78,60,48,48,48,16,16,16,16,1 
12 

8020 DATA .0,14,24,113,224,129,0,0,0,0,0,0,0,1,254,255,0,0,0,0,1,3,7,15,0,0,0,0,0 
10,255,259 

2030 DATA 0,0,0,0,0,0,53,63,0,0,0,0,1,3,6,12,28,56,120,216,152,24,24,24,24,24,24 
,24,24,24,24,24 

8040 DATA 255,255,4,58,69,69,55,0,255,255,32,92,162,162,28,0 

8050 DATA 7,31,82,6,6,3,7,7,131,15,28,30,56,252,240,240,7,195,254,0,0,0,0,0,224, 

96,55,4,3,3,0,0 

8055 DATA 224,224,32,32,32,224,0,0 

8040 BATÁ 1,3,7,15,31,43,127,255,128,192,224,240,248,252,254,253 

8085 DATA 208,211,151,114,18,28,16,16 

8106 REN nubes HHHHHHAHAAAA 

8120 DATA 47,154,6,52,160,10,60,150,8,70,165,10,70,150,12,85,157,8,92,165,8,15,1 

50,10,25,145,7,33,146,5,11,140,5,120,143,5,115,144,3,125,135,4,110,135, 6,130,150 
,4,134,156,5,140,131,3,144,153,4 

8:40 PRINT AT 0,0; PAPER  issrspsasasissss” PRINT PAPER Osssssssososossoss991..55 










¡DETIRRBEBTDE, 


a a ha, ¿Ea ¿ja a le ll -.= 
DO OO RO PO OOOO E 


313155 
8145 FOR n=l TO 10: PRINT PAPER 6; INX 45AT INT (RNDF6)+8,INT (RNDE31)5"2*: NEXT 


ñ 

8146 PRINT AT 6,05 INX 3; PAPER 55” adi 

8147 PRINT AT 7,03 INK 2; PAPER 55"22229922 92) 792229922992) * 

8148 FOR a=1 70 31 STEP 7: PRINT AT 8,n; INK 0; PAPER 65"T*¡AT 9,m;"1*: FOR a=10 
10 15: PRINT AT an; INK 0; PAPER 652%: NEXT a: NEXT m 

8149 PLOT 5,109: DRAW INK 0;255,0: PLOT INK 050,104: DRAW INK 0;255,0: PLOT 0,10 
3: DRAY INK 05255,0 

6156 PRIMT AT 20,0; TK 0; PAPER 479999979999979799779997777977999927" 


AAA A A 


8152 PRINT AT 21,05 INK 7; PAPER 2; BRIGHT 15"Paciencia'Mire que bonitas nubes* 
8159 RESTORE 8120: FOR n=1 TO 19: READ a,b,r; FOR w=1 TO P: CIRCLE PAPER 55 INK 
7i8,b,v:; NEXT vw: NEFT n 

8159 PRINT AT 21,05 INK 7; PAPER 1; BRIGHT 15” Fantasias ? M.Eugenia Cuervo ” 
8150 RETURN 

9000 REN tren 

9005 BEEP ,8,10: PRINT AT 18,x5 PAPER 65" “¡AT 19,x5" ” 

9018 FOR n=0 TO 28: BEEP .007,-n: PRINT AT 14,m5 INX 2; PAPER 65" 22"5AT 15,25” 
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1 CLEAR 64300; INK 7: 60 SUB 4000 

2 60 SUB 8000 

3 60 SUB 8140: 60 SUB 3000 

4 DIM q512,31): LET q$(1)="22229922299222292229922999222299%; LET q6(2)="2222 


E Ass ss 


IIPDIFIIIIIIIIIIIIIIIIRIIIO 
5 REN iniciar iso 
6 LET x=20; LET 1=25: LET ¡=0: LET k=0 | 


7 DIN $512,3): DIM b$(2,5); DIN c$12,5) 
8 LET ads" 2%: LET b$11)=" 292 *: LET b$(2)="2222 "3 LET có(1)="22 ? *: LE 
ECHA 22% Le d$="222 a EE] 05219) "> LET E$(1)3"2 ". LET £$12)=" > , 
9 REN HH j H 
10 LET n=IMT (RNDFG): 1F p=2 1 N LET x=x-1; LET cm=USR 64326: BEEP .03, 1; PAU 
SE 2; BEEP ,03,1: 1F x(=0 THEN 60 TO 9000 
11 LET ca= -USR 64301 
12 LET ca=USR 54326 
15 LET jsjtl; IF j=3 THEN LET j=1 
15 LET ca=USR 64324 
¿7 PRINT AT 20,0; INK 0; PAPER 4;q5$15) 
20 PRINT AT 18,x5 1NK 2; PAPER ájes;AT 19,x; PAPER 6; INK 151515) hd 
21 3EEP ,0006,-5 y 
22 LET ca=USR 64326 
24 BEEP ,0007,30 
30 1F INKEYS="0" THEN LET E 9 
$0 IF INXEYS="0" THEN 60 TO 9 
90 LET l=1-k; LET k=05 PRINT AT 16,15 INK 3; PAPER 6525547 17,1; INX 1; PAPER 
65b$1j)5AT 18,15cS15)5AT 19,15 INX Oj PAPER 6;d$ 
55 IF 1=x+2 THEN FOR h=1 TO 10: BEEP INT (RNDF1)+1/(10), INT (RNDISO): PRINT AT 
15,53 INK INT (RNDF7); PAPER 6;”EL COYOTE HA GANADO”: NEXT h: PRINT AT 21,0; 1) 
K 05” PULSE UNA TECLA PARA OTRA,!!! *; FOR n=1 TO 50: BEEP ,03,INT IRNDF30): Me 
XT a: PAUSE 0: PRINT AT 15,0; PAPER rsssisass! 60 TO 5 
60 60 TO 9 
70 REA HH AHH HH HAHAHAHA AHHH HAHAHA 
3900 RESTORE 3010 
3008 FOR t=£4301 TO 54350; READ ¡: POKE t,3: NEXT t 
3009 RETURN 
3010 DATA £,£4,17,255,71,213,225,43,197,1,31,0,26,237,184,35,119,0,43,43,27, 193, 
14,240,201 
2020 DATA 5,64,17,255,79,213,225,43,197,1,31,0,26,237,184,35,119,0,43,43,27,193, 
14,240,201 
4000 DEN presentacion RRPRREREA ARRE PERA 
4010 BORDER 0: PAPER ): CLS 
3011 PLOT 0,175: DRAY 255,0: DRAW 0,-175: DRAW -235,0: DRAV 0,175 
4030 INK 3: PLOT 50,160: DRAW 0,-50; DRAW -20,-20: DRAY 15,-20: DRAY 20,-20: DRA 
Y 20,20: DRAW 15,20: BRAW -29,20; DRAW 0,50: DRAW -15,-45: DRAW -15,45 
2050 CIRCLE INY 4553,100,7: CIRCLE INK 4577,100,2 
9050 FOR a=1 70 2: CIRCLE INK 7;53,100,m: CIRCLE INK 7577,100,n: NEXT n 
4070 “OR p=1 TO 3: TNK 2: CIRCLE 63,70,m: NEXT n 
4086 PLOT 65,70; DRAW -6,18; PLOT 55,70: DRAY 6,18 
40835 PLOT 50,75: DRAY 12,-15; e 9,72: DRAW 10,15; PLOT 48,72: DRAW 3,4: DRAY 
«1,2 
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2%; PRINT AT 16,n5 INK 1; PAPER 65*222£*5AT 17,m5 INX 2; PAPER 7;*2222"5AT 18,n 
¡ INX 05 PAPER 55"////*5AT 19 m5 INK 05 PAPER 65"??? * 
9020 NEXT n 
9021 LET ¡=1: PRINT AT 16,305 INX 15 PAPER 65*22";AT 17,30; INK 25 PAPER 7;"22*; 
AT 138,305 INX 0; PAPER 3; INK 05"//*5AT 19,305 INX 0; PAPER 6;"22" 
9022 FOR c=0 TO 28: LET j=j+1: 1F ¡33 THEN LET j=1 
7023 PRINT AT 14,295 INK 2; PAPER 85e$jAT 15,2954915): PRINT AT 16,c; PAPER 63" 

"¡AT 17,05" "AT 18yc5" "¡AT 19,05" *: BEEP ,03,-20 
9024 NEXT c 
9030 PRINT AT 14,295 PAPER 65" "¡AT 19,295" "¡AT 15,29% "¡AT 16,295"  ”; 
AT 17,295" "¡AT 18,295"  * 
9032 BEEP .05,25 
9033 PRINT AT 21,05 INK 7; PAPER 4; BRIGHT 1;"pulse enter para otro coyote  * 
9040 LET j=j+1: 1F 5=3 THEN LET ¡=1 
2050 PRINT AT 20,05 INK 0; PAPER 45q$(5): PRINT AT 18,28; INK 2; PAPER Ase$;AT 1 
9,281$15): BEEP ,03,-20; LET cm=USR 64301: LET cm=USR 64326: LET cm=USR 44326 
7060 1F INKEYSC)"*" THEN PRINT AT 19,26; PAPER 65" — "¡AT 18,265" — *;AT 21,0; 

INX 75 PAPER 2; BRIGHT 15" BIP k ZAP ? M.Eugenia Cuervo *: 60 TO 5 
9970 60 TO 9040 








“PLUMADIS” 
Vueltas de contador: 016 (B) 
Memoria ocupada: 9182 bytes 


MN” AMBIEN con este programa se 
pueden realizar dibujos en la ' 
pantalla, pero en versión para 48 K so- 
lamente y es más completo. 

En la pantalla se presentan las co- 
ordenadas del punto que hemos de mo- 
ver que al principio aparece en el centro. 

Pulsando P es color del papel general; 
T es tinta; C es círculo; B borra; Z relle- 
na de color; M invierte los colores de 
tinta y papel; U papel-particular; A ca- 
denas; J cargar pantallas; S salvar pan- 
talla; X disgregar; F sobrear; Q origen 
del “draw”; Wi destino del “draw”: A 
transparencia; 1 “scroll” izquierda; D' 
“scroll” derecha; O “scroll” alta resolu-- 
ción; R “scroll” continuo; E transparen- 
cia contínua; ENTER para menú; L anula 

1 CLEAR 50000 menu; 1 a 8 cursones; 0 borrar; G pinta. 
2 REN HAHAHAHA 

3 REM ? J.MARANON + 

4 REN HAHAHAHA 

3 PAPER 7: BORDER 4; BRIGHT 0; CL5 
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¿ PLOT 0,175: DRAW 255,0: DRA 0,-175; DRAY -255,0: DRAW 0,179: FOR n= =40 TO 1 
STEP -4: CIRCLE PAPER INT (RNDE7); 1NK 95127,89,m: NEXT n 
7 60 SUB 9000: 60 TO 1000 
10 LET ¿d=0: LET t=9; LET p=8: LET ¡=1: LET 1=125: LET c=80: LET x=125: LET y= 
8) 
11 BRIGHT 0: CLS : LET pa=7 
14 INPUT "brillo? (1-0) *5br: BRIGHT br; CLS 
15 INPUT "papel? ”5z: INPUT "bOrde? ";i: PAPER z: CLS : BORDER 1 
16 PLOT 0,0: DRAM 0,8: DRAW 255,0: DRAW 0,-8: LET pa=p: PRINT 1NK 9; INVERSE 1 
147 21,12;"borra* 
17 PEN HHHHHHHHHAH 
20 IF INKEYS="0" THEN sEER ,02,25: PRINT INVERSE 15AT 21,125 1NK 95"borra": LE 
Tj=1 
25 IF INXEYS="b" THEN BEEP .02,25: CIRCLE INK tj OVER 15l,c,r 
24 1F INKEYS="y" THEN BEEP .02,25: INPUT "Esta Seguro? (5/n) "¡d$: 1F d$=*5* T 
HEN CLS ; 50 T0 1? 
77 1F INKEYS="2* THEN FOR m=-20 TO 10; BEEP .01,m: NEXT mw: 60 SUB 4000 
28 1F INKEYS="2" THEK PLOT OVER 151,cs RANDOMIZE USR 50001 
30 IF INKEYS="9* THEN BEEP ,02,25; PRINT INVERSE 15AT 21,12; INK 9i*pinta”: LE 
T j¡=0 
22 IF INKEYS="u* TREN BEEP .02,25: INPUT "papel? *5pa 
35 IF INKEYS="5" THEN BEEP 3,-20: 60 SUB 3500 
36 1F INXEYS="x* THEN BEEP .1,-20: 60 TO 8000 
37 1F (INKEYS="n* OR IN 223=14) THEN BEEP .3,20: 60 SUB 7000 
38 IF INKEYS="j" TEEN BEEP ,02,10: PRINT AT 21,05*Procedemos a Cargar pantalla 
": PAUSE 50; PRINT AT 21,05” "+ LOAD "*SCREEN 


39 IF INKEYS="2* THEN BEEP .5,-10: 60 SUB 5100 

¿0 1F ¿=1 THEN LET pel 

42 15 TNKEYS="g" THEN PRINT AT 21,0,,: PLOT OVER 1;1,c: RANDOMIZE USR 50020 

44 1F INKEYS="i" THEN PRINT AT 21,0,,: PLOT OVER 151,c: RANDOMIZE USR 50038 

48 1F INKEYS="d" THEN PRINT AT 21,0,,5 PLOT OVER 151,05 RANDOMIZE USR 50083 

42 1F INKEYS="c" TREN PRINT AT 21,0,,: PLOT OVER 1;1,c5 RANDOMIZE USR 50088 

SO 1F INKEYS="a" THEN PRINT AT 24,0,,: PLOT OVER 1;1,c5 RANDOMIZE USR 50120 

52 1F IWKEYS="p" THEN INPUT *numero(=255)=0 2*jjk: POKE 50139,jk: PRINT AT 21, 
D,,5 PLOT OVER 1;1,c: RANDOXIZE USR 50138 

=4 IF INKEYS=*p" THEN BEEP 4,4: FOR q=1 TO 32: LET ca=USR 50063: NEXT q 

55 JF INKEYS="6* THEN BEER 1,4: FOR q=1 TO 64: LET cmsUSR 50120: NEXT q 

56 IF INKEYS="q" AND ¡4=0 THEN BEEP .5,20: LET xd=xs LET yd=y: LET ¡d=l: PRINT 
AT 21,125 INK 97"DRAN * 

57 TF INKEYS="n" AND jd=1 THEN BEEP .5,-20; PLOT INK tixd,yd: DRAW INK tix-xd, 
y-y0: LET ¡d=0; PRINT AT 21,125" 

59 IF ¡=0 THER LET p=Ó 

86 1F 1N 223=8 OR INKEYS="7" THEN LET c=c+l 

20 1F IN 223=4 OR INKEYS="6* THEN LET c=c-1 

80 IF IN 223=2 OR INKEYS="5* THEN LET 1=1-1 

00 1F IN 223=1 OR INKEYS="8* THEN LET 1=1+1 

120 1F IN 222=9 DR INKEYS="2* THEN LET 1=141: LET c=c+l 

120 1F IX 223=10 OR INKEYS="1* THEN LET 1=1-1: LET cc+l 


20 





120 1F IN 223=£ OR INKEYS="3" THEN LET l=1-1: LET c=c-1 
135 IF 1 223=5 CR INKEYS="4* THEN LET 1=1+1; LET c=c-1 
140 PRINT AT 21,6;"L="+STRS (ABS (INT (y/8)-21))4* "5AT 21,275"0="*STR$ INT [x/ 
rar A E 

¿59 IF lí=1 THEN LEY 1=1 

160 IF 35=254 THEN LET 1=254 

170 IF <:=5 THEN LET c=9 

190 1F 2:=174 THEN LET c=17 

190 7F j=0 THEN LET p=0 

195 1F INKEYS="C" THEN BEEP .02,25; INPUT "radio ";r: CIRCLE INK t; PAPER pajl, 
Cy 

196 IF INKEYS="t" THEN BEEP ,02,25: INPUT *tinta? *¡t 

198 PRINT AT 21,05 INK 9; PAPER 25*"X="+STRS 1+* *5AT 21,205"Y="+STRS c+” ” 

200 PLOT PAPER pas OVER p; INK tixyy: LET a=1: LET y=c 

300 PLOT PAPER pas INK t5l,c; 60 TO 20 

1000 PRINT AT 9,115 PAPER 0; INK 7; FLASH 15" SUPER *; FOR a=0 TO 30: PRINT 
AT 10,85 INX 95 PAPER INT [RNDE7);"LAP1IZ2 DIS "5AT 15,15 INK 65 PAPER 25" 
SOFTBARE ? IMARANON., *; DEEP .02,n: NEXT 

1050 FOR q=1 TO 96: LET cm=USR S0043; BEER ,01, 73-40; NEXT q: CLS 

1200 PRINT AT 0,2" NSTRICCIONES” 

1205 PRINT PAYER 4 sos 

1210 PRINT AT 10,05 INK 2;"PULSE tecla N PARÁ INSTRUCCIONES": PRINT : PRINT PAPE 
Rrssiosss 

1300 PRINT AT 2,0; PAPER 2,,: PRINT AT 18,1; INX 2; PAPER 5; FLASH 1;"PULSE LA T 
ECLA L PARA EMPEZAR": PAUSE 0: 60 SUB 7000; 50 TO 10 
3300 REN grabacics 
3505 INPUT "nosbre? "ins 

3319 SRINT AT 21,05 PAFER 2,, 

550 SAVE »$5CREENE 

¿303 RETIRA 

JO SER PHHAHPHAAAA 

3100 LEY pr=] 

33%) REN <=========22 

2120 2F PYINT (prti,c)=1 THEN RETURN 

4:20 FOR h=pr+l TO 255 
3125 IF POINT í»,c)=1 THEN 60 TO 3000 
4150 PLOT INK tjn,< 
316% MEXT h 
4170 BEEF 2,10; 60 TO 17 
5000 REM <ss========222= 
5010 3F PCINT lpr-i,c)=1 THEN RETURN 
5020 FAR mupr-i TO £ STEP -] 
5030 IF POINT te,c)=1 THEN PLOT INK t; OVER I5pr,cs LET c=c-1: 60 TO 4115 
5040 PLOT INK tim,c 

5050 NEXT y 

9680 BEEP 2,15: 66 T0 17 

2166 REN HH HH senisombra 

3110 PLOT OVER 1; INK t; PAPER pajx,y: LET qa=y: LET ka=x-1; LET e=x 
5120 FOR n=qa TO 0 STEP -1; IF POINT (x,m)=1 THEN PLOT INK *tje,n: LET y=m: LET x 
=01 RETURN 








5130 FOR e=ka TO 0 STEP -2 

5132 IF POINT (e,n)=1 OR POINT (e+1,m)=1 THEN 60 TO 3140 

5135 PLOT INK t; PAPER paje,n: NEXT e 

5140 FOR e=kat2 TO 255 STEP 2 

5142 IF POINT [e,n)=1 OR POINT (e-1,n)=1 THEN 60 TO 5147 

5145 PLOT INK t; PAPER paje,n: NEXT e 

3147 LET n=n-1 

5150 FOR e=ka-1 TO 0 STEP -2 

5152 1F POINT (e,n)=1 OR POINT (e+1,m)=1 THEN 60 TO 5160 

5155 PLOT INX t; PAPER paje,n: NEXT e 

5160 FOR e=ka+l TO 253 STEP 2 

15162 1F POINT (e,m)=1 OR POINT (e-1,m)=1 THEN LET z=n: NEXT n 

6165 PLOT INX t; PAPER paje,n: NEXT e 

5170 NEXT n 

7000 REN HAHAHAHA HAHAHA 

2010 REN menu 

7020 LET a$="  O/borrar. %/pintar. P/papel general.  T/tinta.  C/circulos. 
B/borra circulos.  2Z/rellenar, M/pantalla inversa.  ” 

7030 LET s$="U/papel particular. X/cadenas.  J/cargar pantalla.  S/salvar pa 

atallas.  6/disgregar.  F/sombrear.  U/origen dram.  ” 

7040 LET d$=" V/destino draw. A/transparencia.  I/scroll izq.  9/scroll 

derecho.  0O/scroll alta resolucion,  R/scroll continuo.  E/transparencia co 

atinua.  * 

7050 LET +$="FIRE o ENTER para menu. — L/anula menu. 1/8 cursores * 

7060 LET os=ab+s$+15++4$ 

7070 LET o$=0$(2 TO LEN 0$)+0$(1) 

2072 PRINT AT 21,05 INX 95o$(1 TO 31): PAUSE 3 

7073 1F INKEYS="1*” THEN PRINT AT 21,05” "> RETURN 


7075 50 TO 2070 

7089 REN FHHHHHAHAHH 

8000 BEEP .05,30; PRINT AT 21,0; FLASH 15;"Cadena no mas de 2) caracteres ”: INP 
UT 5k$: IF LEN k$)29 THEN BEEP 1,-25: 60 TO 8000 

8005 PRINT FLASH O¡AT 21,0,, 

8010 INPUT "introduzca numero de linea"; 1k: 1F 1k)>=21 THEN BEEP 1,-28: 60 TO 801 
0 

8020 INPUT "numero de columna*;ck: IF ck<0 OR ck>31 THEN BEEP 1,-28; 60 TO 8020 
8030 INPUT "brillo?11-0)*;bk: IF bk<0 OR bk>=2 THEN BEEP 1,-28: 60 TO 8030 

8040 INPUT "papel de la cadena?";pk: IF pk>8 OR pkx0 THEN BEEP 1,-20; 60 TO 8040 
8050 INPUT "tinta de la cadena?*¡tk: 1F tk>9 OR pk<0 THEN BEEP 1,-20: 60 TO 8050 
8040 INPUT "Flash?";4k: 1F Fkc0 OR $k>1 THEN BEEP 1,-28; 50 TO 8060 

8070 PRINT AT lk,ck; INK tk; PAPER pk; FLASH +k; BRIGHT bk;k$ 

8080 59 TO 20 

9000 REN CA AHHH HAHAHAHA HH 

9002 RESTORE 9012 

9010 FOR v=50001 TO 30168 

9011 READ q: POKE v,q: NEXT y 

9012 DATA 33,0,64,6,24,197,6,0,126,238,255,119,35,16,249,193,16,243,201 

9013 REN PRA 

9014 DATA 33,255,87,14,32,167,203,38,43,13,32,250,62,63,188,32,242,201 





E, 


9015 REM 

9014 DATA 6,192,17,0,54,213,225,35,197,1,31,0,26,237, 176,43,119,0,35,35,19,193,1 
5,240,201 

9017 REN HAHAHAHA 

9018 DATA 6,192,17,255,87,213,225,43,197,1,31,0,26,237,184 135,119,0,43,43,27,193 
¿16,240,201 

9019 REX HAHAHAHA 

9020 DATA 33,0,64,6,192,197,6,31,126,203,39,119,35,126,203, 39 119,48, 64,43,126,20 

3,199,119,35,16,241,35 2193,16,230, 201 

9023 REN PRA 

9030 DATA 33,0,54,14,32,167,203,14,35,13,32,250,62,88,188, 32,242,201 

9035 REN HAHAHAHA 

9040 DATA £2,0,203,39,203,39,203,29,230,56,87,33,0,88,6,3,197,6,0, 126,230,199,17 
8,119,35,16, 248, 193,16,242, 201 














9500 RETURN 
SATER “SAPER” 
[ Vueltas de contador: 013 (B) 
Memoria ocupada: 8706 bytes 
YONSISTE el juego en convertir a la 
rana en rey, ya que está embruja- 
— do, para lo cual habrá de comerse la 
T DO E naaEc PAIN mr Sl mayor cantidad de mariposas que vue- 
XIXKIXKMXMIAXXX XXXMXMXMXMXX | lan sobre el estanque, pero tiene el tiempo 
S | AXIKIIN liado. 
Xx 4 $ se El 1 mueve a la izquierda y el 2 a la 
Xx > derecha, el O lanza el chorro M20. 
A x 
X q 
e Xx 
P% Xx 
x X ao E 
E | 











HEXIMMAMiA MA MR 


Xx 


AE MON 


ea 
= 








l REM FHBSTSHAHAA 
2 PRINT AT 0,0; FLASH 15" espere un momento por favor  ”: 60 SUB 6000: BORD 
ER 0: PAPER 3; CLS ; INK 7; 60 SUB 7000 
5 CELS : 60 TO 2000 
6 BORDER 0 
45 50 TO 80 | 
50 PRINT AT 19,x5 INX 4; PAPER 1;*22*;AT 20,x5"2?": IF SCREENS 118,x)="x" THEN 
BEEP .01,7: BEEP .01,-12: 60 TO 100: REM lenguat+tr+r errar rra re per+ ett 
51 PRINT AT 18,x5 INK 7; PAPER 15*2*; FOR e=17 TO 3 STEP -1: BEEP ,003,10 
52 1F ATTR (e,x)=20 THEN LET z2=2t1: PRINT AT 1,185 INX 2; PAPER 7; INVERSE 1; 
BRIGHT 15"CAZADOS "eSTRS z: 60 TO 60 
53 IF SCREENS le,x)()* * THEN FOR m=20 TO 0 STEP -5; FOR m=1 TO 100 STEP 13; 0 
UT 254, y: BEEP .008,042: DUT 254,n: NEXT m: NEXT n: LET vzw-10: BEEP ,01,26: BOR 
DER 0; 60 T9 $7 
53 PRINT AT e,xj INK 7; PAPER 0; BRIGHT 15"?”: NEXT e 
37 REN retirar lengua isososorroracionaroso 
58 PRINT AT 19,x5 INK 4; PAPER 15"22"5AT 20,x5"?2"; FOR n=e TO 17; PRINT AT n, 
xj" *: BEEP .008,7: NEXT n 
55 PRINT AT 18,x;5 INK 1; PAPER 1;" ": 60 TO 100 
60 REM coronas / III 
51 FOR a=1 TO 5; BEEP ,01,5: PRINT AT e,x; INX 3; PAPER 0;"*+": BEEP ,005,n; PR 
INT AT e,xj INX 25 PAPER 0; BRIGHT 15"9": NEXT n 
62 1F 2=20 THER LET c$="2*; PRINT AT Jc,cc; INX 0; PAPER O5c$: PRINT AT 21,14; 
INK 6; PAPER 0; FLASH 15 BRIGHT 15c$: 60 TO 700 
83 1F 1=15 THEN LET bó="2*: LET tb=3: LET pb=0: PRINT AT 21,12; INK 7; PAPER 2 
¡ FLASH 1; BRIGHT 15*4* 
64 1F 2=10 THEN LET a$="?"; LET ta=5: LET pa=0: PRINT AT 21,10; INX 7; PAPER 1 
y FLASH 1; BRIGHT 1;”*” 
E7 60 T0 57 
80 REN programa principald000000000000) 
81 LET la=10: LET 1b=7; LET Ic=14: LET ca=3: LET cb=12: LET cc=ó 
82 LET ra=10; LET rb=2; LET *c=5; LET sa=2: LET sb=12; LET sc=ó 
83 LET ta=6: LET tb=6: LET tc=6: LET v=300: LET z=0 
84 LET x=10; LEY y=10 
95 LET a$="2"; LET b8="2*; LET c$="?" 
33 ¿ET pa=0: LET pb=0: LET pc=u 
95 RER rutina principal moscass=========323cocccccccccicic20= 
190 LET p=IN7 (RNDFZ2+1; LET m=INT (RNDF2)+1 
110 LET la=slatin=1)-(m=2); LET ca=cat(m=1)-(m=2) 
120 IF SCRESMS ¡la,yca)t)" * OR la)=17 THEN LET lasra: LET cassá 
220 PRINT AT rajsaj" *: LET ra=la; LET sa=ca; PRINT AT la,caj PAPER paj INK ta; 
36 ; 
140 LET Ib=1b+(n=2)-(n=1); LET co=cb+(m=2)-[m=1) 
150 IF SCREENS (1b,cb)()* * OR 1b)=1? TREN LET Ib=rb; LET cb=sb 
120 PRINT AT rb,sb;" *: LET rb=lb: LET sb=cb: PRINT AT lb,cb; PAPER pb; INX tb; 
b$ 
170 LET Ic=lc+(n=4)-(m=2); LET co=cc+(m=2)-(m=1) 
180 1F SCREENS (lc,ccic)" * OR 1c>=17 THEN LET lc=rc: LET cessc 
190 PRINT AT rcjsci” *: LET rc=lc: LET se=cc; PRINT AT 1c,cc; PAPER pc; INX tc; 
c$ 
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200 LET v=v-1: PRINT AT 1,0; INX 25 PAPER 7; BRIGHT 15 INVERSE 1;"TIEMPO *+STR$ 
ye" "¡AT 1,185"CAZADOS *+STR$ 2: IF y=0 THEN 60 TO 5000 

210 IF v(=0 THEN 60 TO 40 

300 REM rara HHHHAH HAHAHA 

310 IF INKEYS="" THEN 60 TO 100 

318 IF INXEYS="0" THEN 60 TO 50: REM lengua 

320 PRINT AT 20,x5 INX 4; BRIGHT 1; PAPER 15"22"5AT 19,x5"22": BEEP ,01,18 

330 LET x=x+(1NKEYS="2") -(INKEYS="1"): 1F x(=3 OR p=2% THEN LET x=26 

350 PRINT AT 20,y5 BRIGHT 1; INK 15 PAPER 15” "¡AT 19,y5" *: LET y=x: PRINT A 
1 20,x5 INX 4; PAPER 15"22*AT 19,x5"22*: BEEP ,01,-24 

360 50 TO 100 

709 FOR p=1 TO 10; BORDER INT IRADEZ) : BEEP ,01,n: PRINT AT 20,xj INK INT (RNDE 
6)+1; PAPER 15*22*5AT 19,x5"22*: BEEP .01,1NT (RNDE70)-30: PRINT AT 19,x5 INK 75 
PAPER 15*22*; NEXT a 

710 FOR n=1 TC 10: BEEP .01,n: BORDER 1NT (RMDE7): LET h=INT (RNDFÓ)+1: PRINT A 
T 20,x5 INK h; PAPER 15*99%AT 19,x5"22*5AT 18,xj PAPER 05*??2*: MEXT m 

720 PRINT AT 20,x5 INK 6; PAPER 15*2?*;AT 19,x5"22"5AT 18,x5 INK 6; PAPER 1;"?? 
L] 

730 PRINT AT 10,0; INX 6; "POR FIN EL REY ES REY Y NO RANA ": FOR n=1 TO 100: M 
EXT m: PAUSE 0: CLS : 60 TO 2 

2000 BORDER 4; REN decorado 
2050 PAPER 0; CLS : INX 7; BRIGHT 1 
2052 PRINT AT 0,0; INK 7; PAPER 1; BRIGHT 1; INVERSE 15" SOFTVUARE?A.M 
ARANON * 

2053 FOR a=18 TO 20: PRINT INX 1; BRIGHT 1jAT m,05*22222222277792277277722229222 
277%: NEXT 

2054 PRINT AT 21,0; INK 4; BRIGHT 05*2229222229222222227222292222922921 

2055 REM limites laterales HHHHHHAHHAHAH 

2058 FOR n=2 TO 17; PRINT AT n,0j INK 0; PAPER 05*x"¡AT m,315*x": NEXT n 
2060 PRINT AT 2,03 INK 05 PAPER 05 "xxxXXXXXXXXXXXXXXXXNXXXX XXX AX? 
2055 BRIGHT 1 
2070 FOR n=13 TO 17; PRINT AT m,0; INX 4; PAPER 0;"2": NEXT n 

2071 FOR m=15 TO 17: PRINT AT n,1; INK 4; PAPER 05*?*: NEXT n 
2072 FOR n=11 TO 17: PRINT AT ñ43; INK 6; PAPER 05*%2*; NEXT n 

2073 REN juncos derecha eeoonnonnnnenmenmennmn=- 

2075 FOR n=14 TO 17: PRINT AT n,28; INK 6; PAPER 05000; NEXT A 

2075 FOR n=10 TO 17: PRINT AT n,29; INX 6; PAPER 05*?*; NEXT n 

2077 FOR m=8 TO 17: PRINT AT 5,30; INK 4; PAPER 05*2"; NEXT=m -. 
2078 FOR n=11 TO 17: PRINT AT m,315 INX 65 PAPER 05*?"; NEXT n 
2079 FOR n=18 TO 20; PRINT AT m,285 INK E; PAPER 15"2*5AT n,295"2*"5AT n,305 INK 
45 PAPER 15%2*5AT 1,315 INK 6; PAPER 152": NEXT n 

2020 FOR n=18 TO 20; PRINT AT m,0; INK 4; PAPER 15*2*";AT n,15*2"5AT m,3; INK 65 
PAPER 15"2%; NEXT ñ 
2090 PRINT AT 7,205 INK 3; PAPER 9; BRIGHT 15"2*;AT 12,0; INK 5; PAPER el 
14,15 INK 3; PAPER 05*2"s PRINT AT 12,31; INX 2; PAPER 2;"x"¡AT 11,295*x"5AT 15, 
087*x "541 13,35% 
2095 LET a=INT IRNDF¡1)44; LET E=INT (RNDF LO) +15 
209€ PRINT AT 17,25 INK 7; PAPER 0;"2?*5AT 17,D5"??*5AT l6,a; INK 3; PAPER 0;"2" 
¡AT 18,241; INK 3; PAPER 05*>*;AT 16,b; PAPER 0; INK 4;*2";AT 16,D+1; INK 2; PAP 





MNHXNMXMONM 








y 
| ! E 
A 
ER 05"?” 
2097 PRINT AT 18,25 INK 15 PAPER 1;"xx";AT 18,D5*xx" 
3000 60 TO 6 


5000 FOR n=1 TO 10: BORBER INT I(RNDE7): BEEP (INT (RND+6))/10,n: NEXT n 

5100 LET ¡$="EL TIEMPO DE LA MAGIA SE ACABO Y LA RANA SGUIRA SIENDO RANA” 

5120 FOR n=1 TO LEN ¡$: 1F j$=" *" THEN PRINT * ";: 60 TO 5125 

5121 PRINT ¡$(n);: BEEP .01,INT (RNDF70)-30 

5125 NEXT nm: PAUSE 200: 60 TO 3 

5000 REN graficostrtrerrrerrr rre R RRA REA RR RR RRA Rare e 

5010 DATA 1,3,5,15,15,23,39,7,6,12,16,16,8,4,2,28,128,192,160,240,240,232, 228,22 
4,96,48,8,8,16,32,64,56 

65020 DATA 0,0,0,1,3,21,31,7,0,0,0,128,192,168,248,224,7,7,255,64,32,16,8,56,224, 
224,255,2,4,8,16,60 

6030 DATA 120,180,72,48,55,101,205,248,120,180,72,55,61,29,1,31,24,60,153,153,21 
9,253,165,235,3,3,3,3,3,3,3,3 

5040 DATA 8,8,8,11,207,254,120,56,16,24,24,8,16,24,24,8 

6050 DATA 3,7,15,207,243,247,127,63,192,224,240,243,207,239,254, 202 

8060 DATA 241,138,76,62,25,103,101,131 

6065 DATA 9,13,15,15,14,172,69,227,144,176,242,242,114,50,162,194,225,95,93,85,8 
5,86,119,71,130,250,184,170,175,106,238,226 

6079 RESTORE 

8080 FOR n=0 TO 167: READ q: POKE USR "a"tn,q: NEXT m 

6090 RETURN 

7000 LET g6="ERASE UNA VEZ EN UNA CHARCA MUY LEJANA ¿QUE UN REY POR OBRA BE LA M 
AGIA PERDIO SUS ATRIBUTOS REALES Y ENCIMA SE CONVIRTIO EN UNA HERMOSA RAMA.” 
7100 LET +$="PERO LA MAGIA ES LA MAGIA Y EL HADO BUENO LE PERMITE CADA NOCHE 0BS 
CURA INTENTAR RECOBRAR SU CONDICION REAL.' 

7150 LET ¡$="L0 CONSEGUIRÁ O MO LO CONSEGUIRA......?” 

7200 FOR n=1 TO LEN g6: IF gbtn)=" * THEN PRINT * "5: 60 TO 7250 

7220 PRINT INK 75g$(m);: BEEP .01,INT (RNDFZ20) 

7250 NEXT n 

7251 FOR a=1 TO LEN $6: IF f$in)=" " THEN PRINT * "5: 60 TO 7254 

7252 PRINT INK 7;f$1n);: BEEP .01,10 

7254 MEXT a 

7240 PAUSE 200; CLS 

7265 FOR m=1 TO LEN i5: 1F i$(m)=" * THEN PRINT * "5: 60 TO 7280 

7270 PRINT i$tn); INK 3ji$tm);: BEEP .Ol,n 


7280 NEXT n ! 
7283 PRINT AT 16,03 INK 6;"la tecla | mueve la rana a la izquierda 
la tecla 2 a la derecha, y 0 lanza el chorro de H20”: PAUSE 0 
7285 PAUSE 300 
7300 RETURN 


6x-39 | 
Vueltas de contador: 015 (B) 


- Memoria ocupada: 9807 bytes 


S un juego deportivo de competi- 

/ ción de remo de 2 piraguas. Al 
principio se debe indicar la elección de 
las tres velocidades posibles, 

La canoa del jugador es la más alta y 
avanza pulsando adecuada y alternati- 
vamente la tecla 0. Al final de varias 
eliminatorias, se llega a la gran final. 


1 REA HAAAHAAH 

2 REM THHETSHAAH 

3 CLEAR 64000 

4 1AK 4 

3 60 SUB 27000 

£ BORDER 1: CLS : BORDER 0 

7 60 TO 2005 

10 REN HAHAHAHA 
20 LET j=5+1: 1F j=3 THEN LET j¡=1 








? 


Pc 1 a 0 0 e 


Crono 35 FASE 1 Record 300 


22 LET t=t+1; PRINT AT 21,15 INK 6; PAPER 1;"Crono *; 


25 LET r=INT (RMDAdis): 1F r=3 TREN LET x=x-1 

2? IF INKEYS="0* OR IN 223=16 THEM 60 TO 30 

28 FOR h=1 10 10 STE? 3: BEEP h/1000,60: NEXT h 

29 IF INXEYS="0" OR IN 223=16 THEN LET q=qtkk 

30 JF q=1 THEN LET c=c-q3 LET q=0 

40 PRINT AT 19,x; INK 65 PAPER BjaS(j)jAT 20,x5 INK 75DS15) > 
42 FOR h=1 T2 10 STEP 3: BEEP h/1000,60: NEXT h 

45 PRINT AT 16,c5 INK 3; PAPER 8a$!j)5AT 17,c5 INK 75b$(j) 
47 LET ek=USR 64026: LET ek=USR 64001: LET ek=USR 64026 

50 1F x=1 OR c=l THEM 60 TO 6000 

60 50 T9 20 


2000 PEN PEPA ARA 

2005 RESTORE 201) 

2010 JATA £,64,17,255,71,213,225,43,197,1,31,0,26,237,184,35,119,0,43,43,27,193, 
16,240,201 

2070 DATA £,64,17,255,79,213,225,43,197,1,31,0,26,237,194,35,119,0,43,43,27, 193, 
16,240,201 
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hdd yA CA 


tarta, 





Erono 
E e ña 


2030 FOR a=64001 TO 64050: READ b: POKE a,b: NEXT a 

2040 REM ARRAAAR ARE RR PARAR RARA HAHAHA AA 

2050 RESTORE 2070 

2070 DATA 0,0,0,0,0,128,72,248,192,160,192,66,127,112,36,63,233,255,0,0,0,128,72 
32 

2075 BATA 255,255,4,2,1,0,36,129,253,299,0,0,0,2,16,4,24,20,8,31,50,108,122,113 
2078 DATA 255,255,0,0,0,0,0,0,239,239,0,1,18,4,72,18 

2080 BATA 1,3,7,15,31,53,127,255,128,192,224,240,243,252,234,253 

2085 DATA 0,0,4,36,86,37,122,243,126,66,56,126,85,106,214,233,183,187,187,51,83, 
83,93, 223,127,119,55,54,95,95,83,22! 

2084 DATA 0,0,0,2,20,8,12,30,45,77,12,20,20,34,34,102,0,0,0,8,20,8,24,24,24,24,2 
4,8,9,8,8,24 

2100 FOR n=0 TO 143: READ w: POKE USR "a"+n,m: NEXT 

2200 REM HAARPRARARAPRA RARA HH HAHAHAHA HAHAHAHA HAHAHA 
HAHAHAHA AHH 

2210 LET j=1 

2215 LET x=18; LET c=18: LET g=0 

2218 LE” t=0; LET vez=1? LET rec=300 

2217 DIM 2317,7)3 LET 2$(1)="FASE 1 *: LET 2$07)="CAMPEON": LET 251(2)="FASE 2 ”; 
LET 2513)="8/Final*": LET 26(4)="4/Final”": LET 2515)="Semitin*; LET 7$16)="FINAL 





2220 DIM 2$(2,15): DIN b$(2,15) 

2230 LET aglij=" 2922929 *: LET bS(1)=" 9229927999) 

2240 LET ast2i=" 999 "e LET D$(2)=" 2299999299 * 

2900. REN. ERHRRRERARARRRAR ARA APA EPRR RE REPARA HERRERA RRA ARA 
3000 PRINT AT 6,0; INK 15 PAPER S,s;yg553 1) 

3010 PRINT AT 6,03 INX 3; PAPER %,,,5555,,55 PRINT INK 0; PAPER 4,,,,,,: PRINT A 
714,05 PAPER lissososssossssos 

3020 PRINT AT 5,05 PAPER 1, 

3020 PRINT AT 4,0; PAPER 5; INK 15"29999 29297 2999999972997) 

3040 PRINT AT 2,0; PAPER 5; INK 15" 29 e 2770799 999 1 

3045 PRINT AT 14,0; THK 2; PAPER 7509099777997 7977 99999999 99799779721 


A A A A A A A A A A A 


3050 FOR n=2 15 30 STEF 8: FOR k=11 TO 9 STEP -1: PRINT AT k,nj INK 2; PAPER 45” 
9": NEXT k: NEXT n 

3060 FOR 1=13 TO 255 STEP 64: FOR g=1 TO 10; CIRCLE INK 3;n,100,9: NEXT g: NEXT 
n 

3061 PRINT AT 15,185 INK 3; PAPER 8ja$12);47 17,18; INK 7; PAPER 85b$121;AT 19,1 
25 INK 6; PAPER 8ja$12);AT 20,19; INK 2; PAPER 8;b$12) 

3044 FOR d=29 TO 1 STEP -3 AD 

3066 PAUSE 5; PRINT AT 12,d; INX 05 PAPER 8;*222*5AT 13,d5"?22*; BEEP ,05,-10; N 
EXT 4 


A A 


II II 


3078 PAUSE 0: FOR n=0 TO 7: BEEP ,02,60: MEAT n 

3080 PRINT AT 21,20; INK 4; PAPER 8;"Record *5recjt” ” 

3082 PRINT AT 21,12; INK 6; PAPER 252$11) 

2085 PRINT AT 21,15 INK 5;“CRONO" 

4005 5£ TC 10 

£900 REM HH HAHAHAHA AA HAHAHA HAHAHAHA 

6002 PLOT 16,55: BRAW INX 7;0,-47: PRINT AT 15,2; PAPER 4; INX 7; BRIGHT 1; FLAS 
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o RA En E AAA SS AS 


H 152"; BEEP 1,10 

6005 1F x(=1 THEN 60 TO 6800 

6010 IF t(rec THEN LET rec=t 

£020 PRINT AT 21,20; INK 4; PAPER 8;*Record "precj+” " 

£030 1F e(=1 THEN LET vez=vez+l: PRINT AT 21,12; INX 7; PAPER 2;2$(v0z) 

6040 1F vez=? THEN 50 TO 8000 

£050 FOR n=1 TO 100: BEEP .,0003,60; NEXT n 

5070 PRINT AT 15,05 PAPER lisssss9515115 

5090 LET t=0: PRINT AT 21,5; PAPER 15" — " 

6095 PRINT AT 16,18; INK 3; PAPER 85a$1215A7 17,18; INX 7; PAPER 8sb$(2);AT 19,1 
85 1NK 65 PAPER 8ja512);AT 20,18; INK 7; PAPER 8;b$(2) 

5097 PAUSE 0; FOR n=1 TO 20: BEEP ,002,-20: NEXT n 

6100 LET c=17; LET x=17 

6200 60 TC 10 

6800 PRINT AT 18,05 PAPER l,,¡yy35s: FOR m=1 TO 20: PRINT AT 17,3; INK INT ¿RM 
D46)+25"E L IMINADO0*: PRINT : PRINT * Sea valiente y pruebe de nuevo": BEE 
P.0l, nm: NEXT n 

6804 PRINT AT 18,0; INX 2; PAPER 7; BRIGHT 1; FLASH I;"Introduce la clase de riv 
al que quieres (1-Facil 2-asequible 3-rapidisimo": INPUT zx 

6805 LET ¿if=40-(2xF10) 

6909 LET kk=,25: 3F zx=1 THEN LET kk=,50 

GO PUN MaS 05 PAPER Lisrrrisarisss 

6820 LET t=0: LET x=17; LET c=17; LET q=0 

5830 PRINT AT 16,17; INK 3; PAPER 85a$(2);AT 17,17; INK 7; PAPER 85b$(2);AT 19,1 
75 INX 6; PAPER 8ja$(2);AT 20,175 INK 7; PAPER 8jb$12) 

6840 LET t=0: LET vez=1: LET rec=300 

6345 PRINT AT 21,4; PAPER 15"  * 

¿950 60 TQ 10 

2000 REM PRA AAA 

7005 RESTORE 7020 

7010 FOR a=0 TO 7: READ a: POKE USR "a*+n,a: NEXT n 

7020 DATA 40,126,255,285,239,299,126,60 

7030 RESTORE 7040 

2040 DATA 33,0,88,58,0,91,14,22,6,31,35,94,43,115,35,16,249,119,35,13,32,242,201 
7043 FOR n=64101 TO 64123: READ q: POKE n,q; NEXT m 

2970 REM PHHPHRAAAAH 

7075 BORDER 0: PAPER (; CLS 


7083 FOR n=2 TO 20: PRINT AT n,05"2*jAT m,315*2*: NEXT n 
7084 PRINT AT 3,052? 2? ?9?99799>99999 9 ?%A] 19,05"92 9999997? 
y Er Mr e o LS E E 


7085 LET e=3 

7085 PRINT AT 6,2; INK 6;*creado por M.Eugenia Cuervo” 
7087 PRINT AT 21,15 INK 5;*Pulse una tecla para empezar” 
7090 PRINT AT 10,85 INX ej") 2 29731 


7091 PRINT AT 21,85 INK ej"? 2 e 
7092 PRIAT AT 12,95 INK 652) 2 
2092 PRINT AT 13,85 INK e5%2 2 9) ?99 
7094 PRINT AT 14,85 INK ej"? ? y. 


<A A 


$ 
sr aa e 
Crono =5 FASE 3 li 


hacor EN 500 


7095 PRINT AT 13,85 INX 03"? ? 72. 

7074 LET tono=10 

7097 BATA 11,6,15,11,18,16,15,13,11,11,10,8,6,11,13, lA 13,11,18,19,15,1 
8,16,13,16,15,11,15, 13, 6,8,10,11,13,15,16,18, 16, 15, 13, tl 

7078 LET p=2: RESTORE 2097 

7100 PAUSE 10; LET tono=tono+10; FIA w=1 TO 44; READ a: BEEF .07,a+tono; LET p=p 
el: IF p=7 THEN LET p=2 

7105 IF tono=40 THEN LET tomo=-10 

7110 POKE 23298,p 

7115 BEEP .903,v 

7120 LET mc=USR 64101 

7121 IF INKEYS$()"" THEN 60 TO 7200 

7130 NEXT y 

7135 1F INKEYS="" THEN 60 TO 7097 

7200 60 TO 9000 

2000 REN PHHAAAAHAAAH 

2001 CLS : BORDER 0: PAPER 0: CLS 

3002 PLOT 0,175: INK 4; DRAW 255,0: DRAW 0,-175: DRAW -255,0: DRAY 0,175 

3005 RESTORE 7097 


8010 FOR n=2 TO 13; PRINT FLASH 15AT m,7; PAPER 25" "NEXT AP 
OR m=5 TO 10: PRINT FLASH 15AT n,10; PAPER 65” "2 NEXT 

8020 PRINT AT 7,127 INK 7; PAPER 05 FLASH 1; BRIGHT 1 Ii *CAMPEON”; AT 9,14; 1MK S; 
PAPER 1;*k-3" 


2021 PRINT AT 20,2;"Pulse una tecla para empezar” 

8050 FOR n=1 TO 44: READ q; BEEP .4,q: IF INXEYS()** THEN 60 TO 8070 

8050 NEXT a 

8079 CLS < RUN 

9000 CLS : INK 4: BORDER 2: PAPER 0: CL5 

9010 PRINT AT 2,1; INX 0;"SU K-3 ES EL COLOR MAGENTA Y PARA GANAR DEBERA DE P 
ULSAR AL RITMO ADECUADO LA TECLA E06.* 

9020 PRINT : PRINT "HA DE SUPERAR LAS SUCESIVAS ELIMINATORIAS PARA LLEGAR A 
LA GRAN FIMAL.* 

9021 PRINT "DE NADA SERVIRA PULSAR LA TECLA CONTINUAMENTE" 

9022 PRIMT : PRINT "COMPATIBLE CON STICK KEMSTON  bdisparob” 

9022 PRINT AT 19,05 INX 2; PAPER 75 BRIGHT 1; FLASH 15*Introduce la clase de riv 
al que quieres (l-Facil 2-asequible 3-rapidisimo*! INPUT zx 

6024 LET kk=.25: LET ¿i6=40-(2:0410)5 1F 2x=1 THEM LET kk=.30 

9025 1F 2x(1 OR 2253 TREN BEEP .3,-10: 60 TO 9023 

0530 CLS : RETURN 


BA Ouiíinitelta hiridca 


“QH” (Quiniela Hípica) 
Vueltas de contador: 011 (A) 
Memoria ocupada: 5934 bytes 


'S un juego de apuestas hípicas en 
carreras. En la pantalla tenemos 
una pista con 5 caballos y previamente 
habremos apostado por uno de ellos in- 
dicándoselo al ordenador. 
La carrera se desarrolla aleatoriamen- 
te y gana uno cualquiera. 
Al final de 6 carreras aparece la “QH" 
ganadora. 
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J CLEAR 64299 

2 LET v=0; DIN gíó) 

4 EC SUB 6000: FOR n=0 TO 127: READ q: POKE USR "a*+n,q: NEXT a 

3 PAPER 4: BORDER 4: (LS : 60 SUB 2000: INK 7 

2 69 SUB 9005 

7 BORDER 0; DIM x(5): LET e=0 

Y EA ERA 

15 LES =INT (PRDFS) +1; LET clj)=c tj) +1 

12 LEY aspel; IF p=3 TREN LET p=1 

2 PRINT mT S3,c0105 INK OjaS(p);AT 11,012); INK ?jaS(p);AT 14,c13)5 INK Oja$ip 
J5AT 17,Cc14)5 1INK 35a$1p)5AT 20,c 15); INX OjaStp) 

18 LE? casU5R 64200; BEEP .01,-10 

17 LET k=k+1 

19 PRIMT AT 9 Cll); INK O5DS(p);AT 12,012); INK 75b$(p154T 15,C13); INK O;b$lp 
I5AT 18,c(415 INK 3jb$Ip)jAT 21,c15)5 INK Ojb$(p) 

19 IF c15)1)=22 THEN PLOT 223,112: DRAW INK 750,-111: PRINT AT 7,27; INK 7; PAP 
ER 25 -LASH ¿5 BRISHT 152%; PRINT AT 7,5; INK 0; PAPER 7; FLASH 1;"GANADOR n. * 
ji LET vaw-lo LET glw)=j; 60 70 9700 

20 BEEP .02,-20 : 

21 LET ce=U5R 66300 

25 62 79 20 
199% REN HAHAHA 
2060 LIM c*El 
2100 LEY cfld=1: LET c(2)=1: LET ci3)=1: LET c(4)=45 LET ci5)=1 
2200 DIN 2$12,4); DIM b$12,6): LET asll)=" 22": LET as12)=" 29; LET bs(1)=" ? 
79" LET b5(2)=" 922" 

¿400 LET p=0 

2410 LET k=0 

3000 REN HH HAHAHA 

3100 PRINT AT 0,05 PAPER 1; BRIGHT l5,535191151 

3200 FOR r=4 TO 6 STEP 2: PRINT AT r,0; INK 3; PAPER 63"?2?722227997227222972322 
29992222%* NEXT e: PRINT AT 5,0; INK 3; PAPER 65"??22222222223222232932229722292 
ML] 

3300 PRINT AT 7,05 PAPER 1,,: PLOT 0,119: DRAW INK 7;255,0: FOR t=0 TO 235 STEP 
És PLOT t,119; DRAM INK 750,-7; NEXT t: PLOT 0,115; DRAW INK 7;233,0 

3400 PRINT AT 1,05 INK 7; PAPER 1; BRISHT 15*??9979729999 9 2979729727799999 » 
3410 PRINT AT 2,0; INX 7; BRIGHT 1; PAPER 1;*?2 29377 4 


3500 PRINT AT 2,18; INK 7; BRIGHT 1; PAPER 1;"APUESTA "5cab 
3510 PRINT AT 0,2; 1NK 4; PAPER 1; BRIGHT !5"PocaCola"; INK 35AT 0,185*2X 2X Zx 
Dx | 

3000 REM PRHRRRRAAAAAAA 

5000 DATA 192,192,128,199,191,191,249,176 

5100 BATA 0,0,7,9,17,1,127,254 

5200 DATA 160,180,254,98,17,9,4,2 

5200 BATA 254,254,243,224,32,16,135,72 

5490 DATA 29,2,1,1,1,1,126,252 

5506 DATA 54,95,96,195,175,191,249,88 

5600 DATA 252,255,227,192,201,71,32,16 

5700 DATA 160,224,248,193,130,1,1,0 

5800 DATA 1,2,0,0,1,1,0,0 

$900 DATA 3,0,0,0,1,2,2,1 

5919 DATA 3,15,63,80,160,192,255,255 

5920 DATA 192,240,252,10,5,3,155,255 

5930 DATA 60,60,50,60,126,126,255,255 

5940 DATA 60,50,60,60,60,60,60,60 





5950 DATA 60,59,30,240,23,78,190,34,5,34,58,93,23,59,43,123 

5100 REN PRADA 

6200 RESTORE 6300; FOR d=64300 TO 64328: READ q: POKE d,q; MEXT d 

6300 DATA 5,64,17,0,64,212,225,35,197,1,31,0,25,237,176,43,119,0,35,35,19,193,18 
240,201 

2700 RETURN 

3000 LET a=0: FOR n=4 TO 25 STEP 8: FOR g=2 TO 18: LET asati: IF a=8 THEN LET a= 
Ed 

8100 PRINT AT 9,n; PAPER aj" *: NEXT g: NEXT n 

8120 PAPER 2: BORDER 2: PLOT 0,175: INK 7: DRAW 255,0: DRAW 0,-175: DRAW -255,0: 
DRAY 0,175 

8125 FOR a=1 70 6: CIRCLE PAPER 1587,143,20-n: NEXT mn: FOR m=1 TO 8: PLOT 120tn, 
173: DRAW PAPER 150,-60: NEXT n: FOR n=1 TO 6: PLOT 90,135: DRAW PAPER 15-10-m,- 
20: NEXT az FOR a=1 TO 6: PLOT 127,145-m: DRAW PAPER 1525,0: MEXT n: FOR n=1 TO 
£: PLOT 195+n,173: DRAW PAPER 1;0,-40: NEXT n 


199 GO TO 1064 

200 REM --MODO TEXTO-- 

210 BORDER 6: INPUT *"*: BRIGHT 86: LET XT=0: LET YT=0 

215 1F PEEK 16394=255 THEN OVER 1: PLOT 0,0: DRAW 255,0: DRAW 0,175: DRAW -253, 
O: DRAW 0,-175: PLOT 0,0: OVER O 
220 GO SUB 3000: PAUSE O: LET co=CODE INKEYS 

221 POKE 23613,0: IF co=ó THEN IF PEEK 23á658=0 THEN INPUT **: PRINT Alj*MAYUSCU 
LAS": POKE 23658,8: BEEP 1/3,20: GO SUB 3000: 60 TO 220 

222 IF coxó THEN IF PEEK 23658=8 THEN INPUT ““: PRINT hij“"MINUSCULAS”: POKE 236 
59,0: BEEP 1/3,20: GO SUB 3000: GO TO 220 

223 1F co=7? THEN 1F PEEK 23607=60 THEN INPUT *": PRINT A1j"CARACTERES ESPECIALE 
5“: POKE 23607,250: BEEP 1/5,30: GO SUB 3000: 60 TO 220 

224 IF co=? THEN IF PEEK 236078250 THEN INPUT "*": PRINT Rhij"CARACTERES NORMALES 
*: POKE 23607,60: BEEP 1/5,30: GO SUB 3000: GO TO 220 

225 IF cot8 THEN GO SUB 3000: GO TO 220 

230 IF co=íl THEN GO SUB 3000: LET xt=xt-1: IF xt<0 THEN LET xt=0 

231 IF co=10 THEN GO SUB 3000: LET xtext+1: IF xt>21 THEN LET xt=21 

232 IF co=8 THEN 60 SUB 3000: LET yt=yt-1: IF yt<0 THEN LET yt=0 

233 IF co=? THEN GO SUB 3000: LET yt=yt+1: IF yt>31 THEN LET yt=31 

234 IF co=13 THEN GO SUB 3000: LET yt=0: LET xt=xt+1; IF xt>21 THEN LET xt=21 
238 1F co=12 THEN GO SUB 3000: LET yteyt-1: IF yt<O THEN LET yt=0 

290 IF cot14 THEN GO TO 220 

242 IF co=lg9 THEN GO SUB 3000: BORDER ?: POKE 23658,0: POKE 23607,60: INPUT **: 
GO TO 100 

250 BEEP 1/100,30: PRINT AT xt,ytiCHR$ coj; LET yt=uyt+1: 1F yt>31 THEN LET yt=0 
“ LET xt=xt+1;3 IF xt>21 THEN LET xt=21 

299 GO TO 220 

300 REM --GRABACION Y CARGA-- 

301 POKE 23613,0 

310 LET L=USR 3438: PRINT h1¡*S-GRABAR PAN. L-CARGAR PANTALLA” 

320 BEEP 1,20: PAUSE O 

330 LET AS=INKEYS 

340 IF Af="s" THEN BEEP 1/50,30: INPUT "Nombre; "jn$: SAVE ns$SCREENS : RETURN 
350 IF as="1" THEN BEEP 1/50,30;: INPUT "“Nombre:”"jnt: LOAD nsCODE : LET 1=USR 65 
140: LET 1=USsR 45120: RETURN 

370 BEEP 1/50,20: INPUT "*": RETURN 

1000 REM --CUADRICULAR=- 

1010 BEEP 1/50,20: FOR A=0 TO 20 STEP 2: FOR B=0 TO 31 STEP 2: PRINT AT A,Bj OVE 
R 15 BRIGHT 11” "¡AT A+1,B+r1]" *: NEXT B: NEXT A 

1020 PLOT 0,0: DRAW 255,0: DRAW 0,175: DRAW -255,0: DRAW 0,-173 

1030 BEEP 1/50,20: RETURN 

1050 REM --DESCUADRICULAR-=- 

1060 BEEP 1/50,20: FOR A=0 TO 21: PRINT AT A,Oj OVER 11 BRIGHT 01* 

"2 NEXT A 

1070 BEEP 1/50,20: RETURN 

1100 REM --POSICIONAR CURSOR-- 

1101 IF x>255 THEN LET x=255 

1102 IF x<0 THEN LET x=*0 

1103 IF y%0 THEN LET y=0 

1104 IF y>175 THEN LET y=175 

1105 PLOT OVER 11XP,YP: PLOT OVER 1/X,Y: LET XP=X: LET YP=Y: GO SUB 1200: RETURN 
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1200 REM --DATOS DE PANTALLA-= 

1205 LET L=USR 3438: PRINT Rip"X:"pXp* “p.rYi*prYrp"” ” 

1210 RETURN 

1250 REM --BORRAR LO ULTIMO== 

1260 BEEP 1/50,20: LET Ls=USR 65120: PLOT OVER 1/x,y: BEEP 1/350,30: RETURN 

1300 REM --PAINT=-FILL-=-- | 
1310 BEEP 1/50,20: POKE 65190,X: POKE 65191,Y: POKE 651792,56: GOD SUB 1400: LET L 
=USR 65200: PLOT OVER 1tx,y: BEEFP 1/50,30: RETURN 

1400 REM --ALMACENAR PAN-=1=--- 

1405 PLOT OVER 1jx,y: LET L=USR 45100: RETURN 

1450 REM --DIBUJAR LINEA-- 

1452 GO SUB 1400: PLOT XB,YH; DRAW OVER 01X-Xb,Y-Yb: BEEP 1/50,30: LET xb=x; LET 
ybay: RETURN 

1500 REM --HACER UN PUNTO-- 

1510 GO SUB 1400: GO SUB 1100: BEEP 1/50,35: LET xb=x; LET yb=y: RETURN 

1550 REM --CIRCULO=-==- 

1560 GO SUB 1400 

1570 INPUT "RADIO: *1R: 1F X-R<0 OR X+R>255 OR Y-R<O OR Y+R>175 THEN LET L=USR 34 


















Boletín de suscriloción) 


A remitir a Librería de SOFTWARE-SPECTRUM C/. Bailén, 20. 1.* izda. 28005 Madrid 





Deseo suscribirme a los 11 n.* de la revista por sólo 1950 pts. 


El importe lo haré efectivo: 
G Por giro postal nm.” .......ommmcccccinno..s» 


O Por talón nominativo adjunto. 
O Contra reembolso a la recepción del primer ejemplar, más gastos de envío. 
Deseo suscribirme a partir del n.? ........................ (inclusive). 


ONTARIO A 
Domicilio: ERA sas ERRE 


A A A A MAC ULnERS SS PH a o 


o 
















MAN 
EFE IFE PEA AAAAAA 


O O O E 


nasa 





8200 PRINT AT 10,65 INK 05 PAPER 7; BRIGHT 15 FLASH 15"N 1POBROMUS*AT 1 
4,05 FLASH 05 INK 25” — 0,H, ? Emilio Martinez. ": PAUSE 0 

8300 ELS 

240) PRINT AT 10,1;"PORQUE CABALLO APUESTA USTED EN ESTA CARRERA ? "; INPUT c 
ab; CLS 

5900 RETURN 

9000 RER HAHAHAHA HAHAHAHA 

9100 RESTORE 9200 

9200 DATA 2,2,2,2,2,242,257,9,11,2,2,2,242,/,11,9,6,2,2,2,2,242,2,252,2,7,9,11,7 
111,19,7,13,7,13 

9400 FOR n=1 TO 2; RESTORE 9200; FOR g=1 TO 40; READ q; BEEP .08,q+10: NEXT q: M 
EXT mn; BEEP 1,10: RETURN 

9500 RETURN 

9700 REM HERA 

5710 1F ví6 THEN PAUSE 300; BEEP 1,-20: INPUT "porque caballo apuesta? *;cab; 60 
TO 5 

9715 PAPER 0: CLS 

9718 FOR a=1 TO 6; PRINT AT 6tn,5; INX 7; PAPER 25n; INX 75" CARRERA GANADOR ";g 
(nl; BEEP .2,n: NEAT n 

9717 PLOT 10,126; DRAY INK 45235,0; DRAW INX 430,-60; DRAY INK 45-235,0; DRAW IN 
K 450,60: PLOT 180,122: DRAN INK 7;0,-39 

9330 PRINT AT 4,105 INX 2; PAPER 7; BRIGHT 1; FLASH 15*5) 8. H,*; PAUSE 0: PRINT 
dO5"pulse para otra”! PAUSE 0; RUN | 
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LAPIZ OPTICO 
CRAYON OPTIQUE 
LICHTGRIFFEL 





TROJAN] 


LA MAS ALTA CALIDAD EN LAPIZ OPTICO, MAS UN PROGRAMA DE ALTA CALIDAD. 
LO MEJOR AL MEJOR PRECIO 


DRAGON — SPECTRUM — COMMODORE 64 — VIC 20 — TANDY 
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DIBUJA CIRCULOS. 
DIBUJA LINEAS. 


DIBUJA CON MANOS LIBRES. | 
RELLENA AREAS DE COLOR. OFERTA 
GUARDA Y CARGA DIBUJOS A Y ?. ESPECIAL 
DESDE LA CINTA (CASSETTE). 
COMPLETA FACILIDAD DE BORRADO. 3.000 ptas. 
ENTRADA Y PROCESO DE DATOS. 


SELECCION DE MENU Y CONTROL. 
IDEAL PARA JUEGOS. 


00000 





Distribuidor: GTS 


Bailén, 20 - 1.9 Izda. 
(91) 266 66 01/266 66 02 
28005 MADRID 


DISPONIBLE PARA ZX SPECTRUM 
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